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Introduction 


Welcome to this work on the fascinating world of expert systems. In 
it we'll be looking at specific milestones in the history and 
development of some major systems, with a view to getting an 
overall picture of the current expert systems’ situation. 


From there, we'll develop specific expert systems of our own 
(including THE AUTO MECHANIC, and MEDICI 
which will give you a quick ‘stress-check’ and predict how long 
you're likely to live). Our major expert system in this book delights 
in the name of FUZZY RITA. RITA gives you the framework of a 
general purpose expert system, which you can modify to serve you 
in any way you wish. RITA is shown in action.sorting out cats from 
dogs (!), using the properties of a metal to tell you what it is, and 
finally, predicting the weather, using real data (and achieving a 
success rate far in excess of that which would happen by chance 
alone). 


We'll also look at the languages which are beginning to dominate 
the Artificial Intelligence and expert systems’ worlds. I’ve written 
BASIC emulators of LISP and PROLOG for you, which you can 
enter into your computer, to get a feel for working in these 
languages. A new and simple language, HASTE (for HArtnell’s 
Simple declarative TonguE!) is given first, to lead you gently into 
the programming environments inhabited by LISP and PROLOG. 


All in all, the book is designed to help you end up with a reasonably 
substantial ‘knowledge base’ of your own, so you can exercise your 
own expertise on expert systems. 


Tim Hartnell, 
London, 
1985 


Chapter One 
What is an Expert System 


An expert system is a computer program which contains human 
expertise on a subject, held in such a way that non-experts can have 
access to, and make use of, the expertise. Such a system is made up 
of two major parts — the stored information (the expertise) and the 
reasoning apparatus (which asks the user questions, and from the 
information it has been given, makes decisions). 


Expert systems can do a lot. They can diagnose infectious diseases 
(MYCIN), deduce molecular structures from mass spectrograms 
(DENDRAL), look for oil and precious metals (PROSPECTOR) and 
help you start your car in the morning (THE AUTO MECHANIC, 


given later in this book). 


The distinctive features of an expert/intelligent knowledge base 
-system are these (and the terms should be easy to understand once 
you’ve worked through this book): 


1— Domain specific 
2 — Uses ‘fuzzy’ or probabilistic reasoning 


3 — Has a self-explanatory mode 


4—Clearly separates the facts from the inference 
mechanism 


5 — Can grow incrementally 

6 — Makes money 

7 — Is typically rule-based 

8 — Tends not to be over-ambitious 


9—Output is advice (such as ‘change the spark plugs’, 
‘operate on the left big toe’, ‘dig in the north-west corner 
of the orchard’) rather than being the output of more 
data (such as a graph) 


To tell the truth, we really don’t know yet what an expert system 
really is. It’s too early in the day to give a definitive answer to that 
apparently simple question: What is an expert system? We are 
unable to say which features, from the list we’ve just given, will turn 
out to be important, and which will end up being seen as peripheral. 


Up to now, the biggest problem has been getting the knowledge 
from an expert into a form which a machine can manipulate. The 
current method, called ‘knowledge engineering’, is far from efficient, 
as it needs one human expert (the knowledge engineer) to 
laboriously extract the real knowledge which another human expert 
brings to bear on a problem. This is the real bottle-neck in the 
production of expert systems. 


The Main Ingredients 


Diagrammatically, here are the major parts of an expert system: 


Expert System 
Human: facts about the ] 
current problem ]——————> Listens to human 
I 
\l/ 
{ Inference engine 
[ JIN 
Human <——-——-----——— Answer <—-[ | 
[ \IZ 
[ 


Knowledge base 


The ‘knowledge base’, in a rule-based system (such as THE AUTO 
MECHANIC in this book), is basically a collection of IF/THEN 
statements such as: 


IF X AND Y ARE TRUE THEN C IS TRUE 


AUTO MECHANIC contains lines of coding which mean IF THE 
STARTER DOESN’T CLICK THEN THE SOLENOID IS 
PROBABLY FAULTY. It works by first asking the user to define 
the basic problem. AUTO MECHANIC then leads the user down a 
tree of possibilities, branching off from time to time as a result of 
the user input. This is an example of ‘forward chaining’, seeking out 
the unique solution which lies at the end of one particular series of 
branching. 


Other, more sophisticated expert systems, use backward chaining, 
in which a goal is chosen (THE CAR HAS NO FUEL) and questions 
are asked to establish the truth of this particular hypothesus. 


The Knowledge Base 


This can be either encoded (‘hard-wired’) directly into the main body 
of the program (such as in MEDICI and AUTO MECHANIC) in 
which case it is more or less impossible to delete, or held within an 
addressable database, so that it can be accessed, modified and 
updated, even while the program is running. FUZZY RITA builds 
up a set of rules which determine the importance various inputs will 
be given, by assigning values to variables (and quite happily 
modifying these in the light of subsequent trials and feedback). 


In the case of a hard-wired expert (and in stark contrast to the 
FUZZY RITA kind of program which generates its own rules while 
it is running, even if the user doesn’t have a clue what the rules 
should be), the expertise must be acquired directly from a human 
expert. 


A method by which a computer could extract the knowledge itself, 
and thus create its own knowledge base, will be a (perhaps, the) most 
important development in the history of expert systems. Self- 
created knowledge of this type will be quickly recognized as a very 
precious resource and commodity. Those who satisfy the demand 
for such a commodity will reap a fortune. (Capturing expertise from 
human experts is discussed in some detail in chapter seven, 
Knowledge Engineering of the book Rule-Based Expert Systems 
(Buchanan B., 1984).) 


Several research projects are now underway around the world in the 
field of ‘machine learning’, the science of getting a computer to 
discover and encode the human expertise for itself. (For a 
fascinating account of how one knowledge engineer, H Penny Nii, 
works, see Feigenbaum, 1983.) 


Here are some of the reasoning structures in use in present-day 
expert systems: 


1 — DECISION TREES. The computer follows a hard path down a 
series of questions, letting the answer to each determine which 
specific channel the program should pursue next. This sort of a. 
program needs hard data. It likes YES/NO situations. It is not 
able to cope easily with ‘fuzzy’ situations of the ‘usually/perhaps/ 


sometimes’ type. ‘ 


Commercially-available programs such as CONSULT and EXPERT- 
EASE use decision trees. 


2— PRODUCTION RULES. This structure is seen in commercial 
programs such as XCON and DART, which use IF/THEN 


(along with AND) processes. 
3 — SEMANTIC NETS. MYCIN and PROSPECTOR are examples 
of this type of structure: 
/-------- fact-one 
/ / \ 
relationship-=3 / relationship-4 
/ / \ 
fact-four / fact-three 
/ / 
relationship-1 relationship-2 
\ / 
fact-three 


Expert systems and artificial intelligence (A1) are hot topics at the 


moment. In the January 1985 edition of Byte magazine (pp. 275 — 
282), under the heading Expert Systems — Myth or Reality?, Bruce 
D’Ambrosio points out that the US Department of Defense has 
singled out AI as one of the 10 most important technologies which 
should be developed in the closing years of this century. ‘Japan Inc.’ 
has swung into action with its ‘fifth-generation computer project’. A 
major goal of this project is the development of better expert 
systems. 


The major themes in research and development for fifth-generation 
computers (according to the Proceedings of the International 
Conference on Fifth-Generation Computer Systems, 19-22 October, 
1981, Japan Information Processing and Development Centre) 
include the following: 


BASIC APPLICATION Machine-transLation 
SYSTEMS Quest ion—answer ing 
Applied speech-understanding 
Applied picture-— and image- 
understanding 
Applied problem-solving 


BASIC SOFTWARE Knowledge-base management 
SYSTEMS Problem-solving and inference 
Intelligent interface 


NEW ADVANCED Logic programming machine 
ARCHITECTURE Functional machine 
Relational algebra machine 
Abstract data type support 
machine 
Data flow machine 


DISTRIBUTED Database machine 

FUNCTION/ NETWORK High-speed numerical 

ARCHITECTURE computation machine 
High-Level man-machine 
communication system 


VLSI VLSI (very Large-scale 
TECHNOLOGY integrated) architecture 
Intelligent VLSI CAD 
(computer-aided design) 


architecture 
SYSTEMISATION Intelligent programming 
TECHNOLOGY system 
KnowLledge-base design 
system 


Spurred on by the Japanese efforts, France and Britain now have 
national projects underway. (Perhaps you can contribute to your 
own country’s research with the expertise you gain from this book!) 
In the next chapter, we'll see how some of the ideas we’ve outlined 
are being used in practice. 


Chapter Two 
Expert Systems that Work 


The best known, proven expert systems currently in use include the 
following three: 


— MYCIN, which works in the field of infectious diseases 


— DENDRAL, which analyzes organic chemical compounds; 
and 


— PROSPECTOR, which suggests promising sites for mineral 
exploration 


In this chapter, we’ll look at all three. There are general lessons to be 
learned from them. As MYCIN appears to be the most important of 
them all, we will look at it more closely than we do the others. 


The MYCIN Experiments at Stanford 


We start with the Stanford expert system MYCIN, a powerful beast 
which can aid in the diagnosis of infectious diseases. MYCIN is one 
of the more successful expert systems in use at present, and there 
are many lessons which can be learned from studying it. From the 
information in this section, you may well see ways in which your 
own effective expert systems can be developed and expanded. 


MYCIN is one of the oldest real expert systems in operation. It 
works on a rule-based method, in an area where it was not 
previously believed the data involved in decision-making could be 
codified. 


MYCIN was preceded at the Stanford Heuristic Programming 
Project by DENDRAL, which can deduce molecular structures 
from analysing the output of a mass spectrograph. However, 
DENDRAL was not designed from the beginning to be an expert 
system; it evolved into one from an investigation into scientific 
induction. As well, DENDRAL works in a field where the processes 
involved in reaching a decision were fairly well-known before the 
system was built. MYCIN began as a project to build an expert 
system, in a field where the decision-making rules were fuzzy and ill- 
defined, and the project succeeded. (We will be looking at 
DENDRAL in some detail in due course.) 


MYCIN is not designed to replace a doctor, but instead to act asa 
consultant. The patient is examined by a physician, who tells 
MYCIN the symptoms which have been observed. MYCIN then 
gives diagnostic advice, advice which is very similar to that which a 
specialist would give in the same circumstances. As well as 
dispensing advice, MYCIN can explain how it reached its 
conclusion. A development of this aspect of MYCIN’s behaviour is 
an expert system which instructs medical students, thus creating 
new human experts from the encoded expertise from ‘old’ ones. (A 
prime source of information on the MYCIN project is Rule-Based 
Expert Systems (Buchanan, 1984). This is the book you should read 
if you wish to study the evolution of the project, and the thinking 
behind it, in detail.) 


A further development of MYCIN, EMYCIN (for Essential 
MYCIN), was created by taking away the encoded diagnostic 
expertise (the ‘knowledge base’) and leaving the reasoning 
apparatus (the ‘inference engine’). This has allowed expert systems 
on other subjects to be created, more or less simply by tacking new 
knowledge bases onto EMYCIN. This suggests that there are 
lessons in the structure of EMYCIN which can be generally applied 
to rule-based expert systems. 


The MYCIN Gang 


The developers of MYCIN (who eventually came to call themselves 
‘the MYCIN gang’) started work on the system with the idea of 
following the lead of a program called SCHOLAR which was able to 
‘talk’ very well on the geography of South America. However, they 
found that the medical data they were using did not fit as obviously 
into a neat framework as did the geographical facts, so the 
SCHOLAR line was abandoned. 


Experimentation showed that the most fruitful developments lay in 
the direction of explicitly encoding specific rules — as used by 
human experts — which linked items in the database, rather than in 
trying to break these rules down to create general pathways which 
the decision-making process could follow. Holding the rules in this 
way also meant MYCIN could explain why it had come to the 
conclusion it had, using the kind of statements which physicians 
themselves would use. (Those involved with the development of 
MYCIN included J Aikins, S Axline, J Bennett, A Bonnet, B 
Buchanan, W Clancey, S Cohen, R Davis, L Fagan, F Rhame, C 
Scott, E Shortliffe, W vanMelle, S Wraith and V Yu.) 


The Rules 


The first real problem the gang had to come to grips with, once the 
nature of the rule base had evolved, was that human knowledge of 
infectious diseases did not fall into neat, mutually-exclusive 
packages. The barrier between one item and the next in the domain 
was often fuzzily defined. 


The program’s first implementation had 200 rules, which performed 
essentially as if they were lines being held in the form of an IF 
statement followed by a THEN (and sometimes including an 
ELSE). In later versions, the ELSEs were removed, as they were 
found to be rarely triggered. MYCIN now has more than 600 rules. 


It was decided that MYCIN should make decisions in the following 
order: 


— decide which organism (if any) was causing significant 
infection 


— work out which organism it probably was 
— decide which drugs could be of use 
— suggest the best treatment 


Here is a typical MYCIN rule: 


If:(1)the stain of the organism is gram-positive, and 
(2)the morphology of the organism is coccus, and 
(3)the growth formation of the organism is clumps, 

then there is suggestive evidence (0.7) that 

the identity of the organism is staphylococcus, 


Note the number after the words ‘suggestive evidence’ (0.7) which 
indicates the degree of certainty which MYCIN is placing on the 
conclusion. 


This degree of certainty is expressed on a scale which runs from -1 to 
+1, where -1 is the ‘false’ case (absolute disproof of an hypothesis), 
through 0 (there is no evidence either for or against the hypothesis, 
or the evidence points equally strongly both ways) to 1 (the 
hypothesis has been proven). The developers say this is an imperfect 
system, but is one which has worked significantly well in the past. 
They caution that it should be only be viewed as a starting point on 
the road towards the construction of a logical and consistent means 
of making decisions in areas where the data is uncertain, and the 
domain is complex (Shortliffe, 1983). 


The rule is printed out for the physician in the easy-to-understand 
form given above. However, the rules are held internally as LISP 
lists, in the following way: 


PREMISE: ($AND (SAME CNTXT GRAM GRAMPOS) 
(SAME CNTXT MORPH COCCUS) 
(SAME CNTXT CONFORM CLUMPS) ) 
ACTION: (CONCLUDE CNTXT IDENT STAPHYLOCOCCUS TALLY .7) 


(The list above will probably make more sense to you once you’ve 
worked through the section in this book on EASLE and LISP-A.) 


An expert system will often be used by people who are less expert 
than those whose expertise is encoded in the system. This means the 
reasoning behind the conclusions reached by the system will not 
always be apparent. MYCIN has a_ subprogram called 
CHRONICLER which can answer questions regarding the therapy 
it has advocated. A dialogue with CHRONICLER looks like this: 


** WHY DID YOU GIVE DRUG X FOR SITUATION Y? 
X was prescribed for Y 
Since 
— X is often used for Y in disease Z 
— item Q of patient data shows intolerance to drug P 
— X is not contraindicated 


Knowledge engineering is a slow and expensive process. To allow 
MYCIN to improve its database by gaining new knowledge and 
weeding out errors, inconsistencies and omissions, a sub-program 
was developed called TEIRESIAS. When a physician comes across 
an error, or an incomplete diagnosis, TEIRESIAS can be triggered 
to ask a series of questions from which a new MYCIN rule can be 
created. 


MYCIN has been designed to communicate with the consulting 
physician in as natural a form as possible, and this is clearly seen in 
a conversation with TEIRESIAS. Computer output during rule 
formation includes such ‘human’ lines as: 


I hate to criticize, Dr ....«, but did you know that 
most rules in this area include .... 


ShaLl I try to write a clause which covers... 


Once the new rule has been added to the knowledge base, it is 
checked, with the physician being led gently through the checking 
process: 


Rule xyz has now been added to the knowledge base, 
I will now rerun the consultation to check the 
effectiveness of your new rule, Get comfortable, 
since this may take a bit. 


Once the rules are in place, and have been tested and debugged, 
MYCIN compiles them into a tree structure, and then compiles this 
into machine code. 


EMYCIN 


MYCIN has two main components, the knowledge base and the 
inference engine. By 1974, two years after the MYCIN project 
began, the first experiments in replacing the diagnostic knowledge 
base with one in another field were underway. A Pontiac Service 
Manual was used as the source of expertise to give the inference 
engine material to work with. Fifteen rules relating to the horn 
circuit were written. (Although their structure is quite different, the 
nature of the knowledge locked into the AUTO MECHANIC 
program in this book closely resembles the rules given to this first 
‘son of MYCIN’.) 


Experience in the Pontiac field, and further experiments, led to 
EMYCIN (Essential MYCIN) being developed. This is a MYCIN 
inference engine ‘shell’, along with a significant portion of the 
TEIRESIAS system (which, you'll recall, is used to add new rules to 
the knowledge base via a direct ‘conversation’ with a non- 
programmer user). 


If you run EMYCIN with the intention of creating your own expert 
system, you are led through the creation process step by step, in a 
dialogue something like this: 


> Do you wish to create a new knowledge base? 

> Enter a word or phrase to describe your domain: 

> Enter a one-word name for the root of your context 
tree, the central ‘object’ with which the consultation 
is concerned: 


Once the information is in place, EMYCIN becomes an expert on 
that domain, and can be used as an expert system. So the program 
really has two, quite separate roles. The first role is that of accepting 
data and creating rules from it, and the second is one of making 
deductions from those rules. 


Here are EMYCIN’s roles in diagrammatic form: 


ISSUE FOR 
+—HUMAN EXPERTISE——>—+ +—E, TO SOLVE——+ 
JIN \I7 \I7 JIN 

HUMAN | *EMYCIN*® | CLIENT 

EXPERT (CONSTRUCTION) (CONSULTATION) | 
7\N 1 Z7IN JIN NIZ 7\N 
+—ARE MY RULES OK?——<-——-+ | | +——ADVICE——_——_+ 
\IZ \l7 
+—+—D OMAIN—+—+ 
| KNOWLEDGE | 
| BASE | 


a 2 


One of the major problems in creating new expert systems from 
EMYCIN is the lack of precision in many statements made in 
English. Of course, this lack of precision can be quantified to some 
extent in rule-making (as we saw with MYCIN), but it is not always 
possible to this, especially when EMYCIN may be interpreting the 
entered raw rule data incorrectly. An expert system (called ROGET) 
which assists in the creation of new expert systems with EMYCIN 
is now being developed by James Bennett (Buchanan, 1984) which 
should lead to more effective output from the sons of MYCIN. 


Some very effective expert systems have already been developed 
from EMYCIN. These include SACON, CLOT and PUFF 
(Buchanan, 1984). SACON aims to uncover an analysis strategy for 
a particular problem involving a specific structure (in which the 
system infers such material deflection behaviors as excessive 
deflection and load path bifurcation!), while CLOT gives medical 
advice on bleeding problems. Another medical program, PUFF, 
generates advice on lung diseases, while two offspring of PUFF, 
CENTAUR and WHEEZE use PUFF’s knowledge base, but 
manipulate this base with different representation and control 
structures from it. Another program, VM (for Ventilation Manager) 
keeps an eye on the post-operative condition of a patient after major 
cardiovascular surgery, when mechanical assistance with breathing 
is often required. 


DENDRAL, A Chemical Whiz Kid 


DENDRAL, which was written before MYCIN, is a program which 
analyzes organic compounds to determine their structure. The 
expert system, developed by E A Feigenbaum and J Lederberg at 
Stanford, is so effective at its task that it is believed that no human 
chemist could perform as well. Some of DENDRAL’s analyses have 
even been published as original research results (Rich, 1983). It has 
also found errors in published chemical tables (Raphaele, 1976). 


The program tries to infer the chemical composition and organic 
structure of chemical compounds, using data from a mass 
spectrogram of the substance, and nuclear magnetic resonance 
readings. 


DENDRAL basically follows a three-step process on the way to 
determining the most probable structure for the compound it is 
analyzing. The three steps are plan, generate and test (Buchanan, 
1981). 


In the planning stage, the system uses its inbuilt rules to limit the 
kinds of structures which will be tested, eliminating ones which are 
incompatible with the data given. In the second stage, possible 
answers are produced, generated in accordance with DENDRAL’s 
rule base. The final step consists of testing this structure. Without 
the planning stage, millions of possible structures could be 
generated, leading to the system taking an impracticable time to 
give an answer. In this stage, the possibilities are searched very 
meticulously, to ensure that there are solid chemical reasons for any 
discarding which takes place. 


DENDRAL can locate the most important elements of the test 
data, and use these in conjunction with its basic knowledge of how 
chemical structures are formed. It tests its findings by an internal 
‘mass spectrometer simulator’, which checks to see if the potential 
answer would produce the same spectrogram as the subtance being 
tested. Like MYCIN, DENDRAL uses a set of empirical rules given 
to it by human experts. 


The mass spectrometer readings form one of the most important 
items of data with which DENDRAL works. A mass spectrometer 
separates atoms and molecules according to their mass, charging 
them electrically so that magnetic and/or electrical fields can be 
used to effect the separation. The spectrometer produces a graph, in 
which the relative heights of the peaks are related to the 
comparative populations of particular ions in the sample. (An easy- 
to-understand outline of the mass spectrometer is given in 


Spectroscopy in Chemistry, Whitfield R C; London and Harlow, 
UK: Longmans, Green & Co., 1969; pp. 61 — 71.) 


DENDRAL analyzes the spectrogram of a substance to be 
identified, and uses its condition-action rules to produce a list of 
substructures which must be in the unknown substance and a list 
that must not be. 


Here is a DENDRAL rule (number 75; Winston, 1984). You can see 
it is of the same ‘family’ as the MYCIN rules we examined before: 


If thereisa high peak at 71 atomic mass units 
there is a high peak at 43 atomic mass units 
there is a high peak at 86 atomic mass units 
there is any peak at 58 atomic mass units 
then there must be an N-PPROPYL-KETONES substructure 


DENDRAL’S generating mechanism is called CONGEN, and it 
takes input in the form of the readings from the mass spectrometer 
and other chemical tests. As well, the generator allows limits to be 
imposed on the structures it will produce, such as the number of 
atoms of each type in the molecule and any other constraints 
determined by the operator (Buchanan, 1981). From them, 
CONGEN outputs a complete list of all structures which make 
sense in light of all the entered data. 


Although DENDRAL cannot be operated meaningfullly by those 
not highly trained in the particular areas of chemistry which 
constitute its domain, and thus could be said to have failed one text 
of an expert system (‘does it make expertise available to non- 
experts?’), it performs better than the best human experts in the 
field, although it knows far less than the human experts (Simons, 
1984). It has given worthwhile results in an extremely large and 
wide range of cases, including (Buchanan, 1981) determining the 


chemical structures of unknown compounds in the following areas: 


— organic acids in human fluids 

— impurities in manufactured chemicals 
— antibiotics 

— insect hormones and pheremones 


Gold in Dem Dere Systems 


PROSPECTOR sounds like a dream come true. Many reports of its 
actions suggest you simply describe an area to it, and it tells you 
where to dig for oil, gold or diamonds. But, of course, the reality 
(although exciting in its own way) is not quite as magical as some 
euphoric press accounts have suggested. 


Despite this, some of PROSPECTOR’s work has been very 
worthwhile. For example, the expert system was of major 
assistance in uncovering a potentially very rich offshoot from an 
existing molybdenum deposit near Mount Tolman in Washington 
(Winston, 1984). In this case, human experts disagreed with 
PROSPECTOR’s findings, and only drilling proved that the system 
was right. 


Over 500 rules and more than 300 assertions make up 
PROSPECTOR’s rule-base. Its inference rules work along the same 
lines as MYCIN’s production rules (Simons, 1984). However, while 
MYCIN can combine several possibilities (a patient may have more 
than one infection at once), PROSPECTOR uses strict probablisic 
inferences (see appendix A in this book on Bayes’ Theorem), on the 
assumption that the system’s findings are disjoint, that is, two 
outcomes cannot occur at once (Rich, 1983). 


The knowledge held by PROSPECTOR was obtained by the usual 


laborious way of asking human experts (economic geologists, in this 
case) how they worked, and encoding this expertise. It is very 
interesting that every single one of the human experts involved said 
the knowledge engineering process enabled them to improve their 
own skills in this field, as they were forced to work out exactly what 
they did, and how they did it (Duda, 1981). 


Chapter Three 
Creating Expert Systems 


There are several steps which are useful ground work for the 
development of a specific expert system. We start with the fairly 
obvious one of stating the problem. This can be done in exact terms, 
or in natural language ones. From this point, we need to describe the 
nature of the data inputs which will be used to reach a conclusion 
(the output of the expert system). 


Using this information, it’s possible to work out the theoretical 
mechanisms by which the problem will be solved (the ‘symbolic 
calculi’ which will be brought to bear). 


Now we get to the hard part, actually turning out perception of the 
problem, and our desire for a particular reasoning path upon which a 
solution will be found, into a procedure (or series of them), which will 
work in practice. It is useful, at this stage, to consider the 
incorporation of a ‘reporting mechanism’ in the system, which can 
tell a human observer why certain paths are being followed and — at 
the end — explain how the system reached its final conclusion. The 
procedures, ideally, will have self-modification elements, which 
ensure that fruitless paths are quickly terminated, thus saving 
processing strength and time for avenues which are more likely to 
have some real bearing on the problem. 


The two fundamental, and reasonably obvious, conditions which 
must be fulfilled if any expert system you develop is to be really 
useful are as follows. The first one is that the system must do what 
it claims. If you have built an expert system to distinguish between 
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various types of sea-shells, it must be able to exhibit adequate 
reasoning powers when confronted with the vast majority of objects 
within its domain. Secondly, no matter how ‘clever’ the system is in 
this regard, it is unlikely to be used if it is not written to make 
interaction with the user reasonably simple. 


While it is fairly easy to get to grips with, say, a personal accounts 
computer program, using an expert system demands more than just 
a knowledge of the format of data inputs, and the expected outputs. 
An expert system is a complex, but limited, device. To use it 
properly, the user needs to understand the limits within which the 
program can perform. 


It’s likely that a user will need to spend a lot of time with the 
program before he or she really begins to understand its possibilities 
and restrictions. The on-screen presentation, and the program 
documentation, should do all they can to limit the amount of time 
which must be spent before the program can be used in a meaningful 
way. 


Information Types 


Of course, the general domain of the program will be known 
(‘vitamin deficiencies’) and the context of inputs (‘rough skin’, 
‘tendency to bruise easily’) and outputs (‘the evidence indicates a 
marked lack of Vitamin A in the diet’) will be fairly easily 
appreciated with most systems. However, the kind of information 
the program is able to cope with may take some time to determine. 


Sometimes, when developing an expert system, it is very useful to 
be able to tell the system that some answers are more important 
than others. Imagine a medical diagnosis program, which was 
interested in back problems. An answer to a question such as ‘‘Does 
the patient suffer pain when trying a lift a weight?’ could well be 
more important than the answer to a question such as ‘‘Does the 
patient eat green, leafy vegetables each day?”’. In such a case, the 
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expert system needs a method which will enable it to give emphasis 
to important answers, and in other circumstances, to play down the 
answers to some questions. 


For this, we use what are known as logical sufficiency values for 
answers which should be weighted, and logical necessity values for 
those answers which should be played down. To use them, you 
multiply an answer by the logical sufficiency value if it is true, and 
divide by the logical necessity number if it is false. This ensures the 
system will tend to take more notice of a single answer which 
matters than allowing it to be swamped, so to speak, with ten 
answers which do not matter much at all. 


toon e- + 
| goal | 
toeoeee- + 
/ \ 
/ \ 
$e ewww wwe eee + too--- w------ + 
{ partial | { partial | 
_ | conelusion | | conclusion | 
” pew w wenn eee + towne nnnne rs 
/ \ / \ 
/ \ /LS 2 \LS 10 
/LN 0.3 \LN 0.01 
/ \ 
ee | $e www ewww weenn=+ 
| question: | | question: | 
| answer on {| | answer on | 
| statistical | | statistical | 
| scale | | scale | 
pow wm eeeeee ee + ¢owewmeewreeeoe== + 


Imagine we have developed a medical diagnosis expert system 
which follows a decision tree, with questions and rules at the leaf 
nodes. This kind of expert system can start from goal statements, 


22 


ask appropriate questions, and then use its rule-base to make 
decisions. 


Our system is set up to ask the relevant questions (‘Is the patient 
sweating profusely’), accept the answer as a statement chosen from 
a menu of possibilities (“YES’’, through ‘I DON’T KNOW”, to 
“NO”’), convert this to a probability, then multiply the true answers 
by the logical sufficiency value for that question, and divide false 
answers by the logical necessity value for that question. 


It is often desirable for an expert system to contain a mechanism 
which will stop certain lines of questioning, if specific answers given 
earlier indicate that some lines of questioning are meaningless. 
Following ‘IS THE ENGINE LYING IN BITS ALL OVER THE 
GROUND” (which gets, let us say, a “YES” answer) with a 
question like ‘ATTEMPT TO START THE CAR; DOES MOTOR 
TURN OVER?” wastes time, gets answers which cannot be 
assessed in working towards a conclusion, and demonstrates 
convincingly the lack of intelligence the system really possesses. 


As well as a means of stopping certain questions being asked later 
in the run as a result of answers given earlier, we need to be able to 
ask some questions later, only if positive answers were received to 
other specific questions earlier. 


Two Types of Reasoning 


There appear to be two broad categories into which reasoning 
activities can be placed. Knowledge of these categories makes it 
simplier to create specific expert systems, so long as it is possible 
(and it nearly always is) to decide which category the particular 
class of problems — to be solved by our expert system — will fit 
into. 


For want of better descriptions, I prefer to call the categories ‘exact’ 
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and ‘approximate’ reasoning. A logical problem which is exact is one 
where there is — given all the inputs — one ‘true’ output. An 
approximate problem is one in which the inputs are weighted 
numerically as to their ‘trueness’, with the output also qualified 
numerically. 


As you now know, the two major parts of many expert systems 
(such as the infectious diseases diagnostic program, MYCIN, which 
we looked at in detail in the previous chapter) are called the 
knowledge base (the stored expertise) and the inference engine (the 
reasoning mechanism). We have seen that a great deal of the 
information we know about the world is not capable of being 
reduced to numbers. Our lives are riddled with situations where 
phrases like it seems likely, often, sometimes and I don’t know why, 
but I get a feeling that you'll discover the problem if you ... For 
expert systems to be of real use in the non-ideal, non-numerically- 
discrete world we inhabit, they must be capable of working with 
human concepts and perception. 


Human beings do not, as a rule, reason only (or even principally) by 
following rules. In many cases, the weight given to certain elements 
within a logical proposition is based on ‘real-world knowledge’. 


This is very clearly demonstrated in the understanding of written or 
spoken text. The words in such a text have meaning only within a 
very wide real-world setting. The extent of our knowledge of the 
environment within which the text exists, and which it reflects and 
models, dictates the degree of understanding we can bring to the 
text. This statement alone suggests how difficult it is to develop 
expert systems which interact with us in natural language. It is, 
with current technology, impossible to instill more than a minute 
fraction of the richness of our own real-world knowledge into a 
machine. And without this richness, natural language 
understanding can only be effective (and not very effective at that) 
within very narrow domains. 
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Chapter Four 
Rule-based Systems 


A primitive rule-based expert system can be created fairly easily. 
Such a system, perhaps the simplest kind of expert system you can 
write, can nevertheless be effective and useful, as well as giving an 
insight into how other, more complex rule-based systems such as 
the infectious disease diagnostic program MYCIN, have been 
created. 


In this chapter, I'll introduce you to THE AUTO MECHANIC, a 
simple rule-based system which is designed to help hopeless non- 
mechanics (such as myself) focus on possible causes of problems 
they are having with their cars. Because this program is based on 
real information painlessly extracted from human experts in this 
field, you may well find this program can be of genuine use to you. 


However, the main reason for including it in the book is to show how 
a rule-based system can be developed, in which rules are encoded in 
a specific order, and the answer to one question dictates which 
question the system will ask next. 


Sides to Every Rule 


The simplest rule for use in an expert system has two parts. They 
are a left hand side (LHS) which is typically an IF statement (IF 
THE COMPUTER IS ON FIRE), and a right had side (RHS) which 
is usually a THEN clause (THEN SQUIRT IT WITH THE 
EXTINGUISHER). A low-level rule-based expert system could be 
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little more than a series of LHS-RHS pairs which are presented in a 
specific order. 


A primitive system of this type would allow the user to enter the 
answer to a question (such as IS THE COMPUTER ON FIRE, 
SITTING THERE SERENELY OR MELTING INTO AN UGLY 
BLOB) and then search through its collection of rules for a match 
between the answer given and the LHS of a rule. At this point it 
would either output the relevant RHS, or use the RHS to direct toa 
further, more specific question. 


The order in which the collection of rules is stored is important, as is 
the way in which LHS matchings are handled. If there are several 
LHS conditions which must be met before a RHS is envoked, the 
system must know such things as how many matches are required 
and how close an answer must be to constitute a match. In some 
expert systems, it will make sense for a RHS to be envoked the 
moment a match is found. In other systems, where a single answer 
from the user may match several LHS’s, these could be arranged in 
heirachical order, with the higher level ones envoked if possible 
before the lower level ones were even investigated. DENDRAL, a 
rule-based system which produces information for chemists from 
mass spectrometry data, works with an heirachy of rules. 


In THE AUTO MECHANIC, the rules are in a strict order, and 
there is a single, clear path to the next rule. This path is effectively 
the RHS of the rule. 


Let’s see it in action. It starts with a menu of possibilities: 


SO YOU'RE HAVING AUTOMOBILE PROBLEMS, 
LET'S SEE IF WE CAN PIN DOWN 
THE TROUBLE... 
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ENTER A LETTER WHICH DESCRIBES PROBLEM: 


- ENGINE WON'T TURN OVER 

- ENGINE TURNS, BUT WON'T START 
STARTS, THEN STALLS STRAIGHT AWAY 
- CAR RUNS, BUT STALLS A LOT 

- CAR RUNS, BUT IDLES ROUGHLY 


moow > 
' 


Let’s say our problem is the second one: ENGINE TURNS, BUT 
WON’T START. Once we’ve told it this, it leads us a through 
number of checkpoints, and emergency repair suggestions: 


> OK B < 


CHECK WIRES AT POINTS FOR DAMPNESS, 
IS THERE A CHANCE AREAS ARE DAMP? 
(Y - YES, N - NO)? 
> OK Y < 


SPRAY WITH MOISTURE REMOVAL SPRAY 


IS THERE DUST VISIBLE ON THE INSULATING 
PART OF THE COIL, OR ON THE 
DISTRIBUTOR CAP? 
(Y - YES, N - NO)? 
> OK Y < 


WIPE COIL SECTION AS WELL AS INSIDE 
AND OUTSIDE OF CAP, 


ENSURE ALL WIRES ARE TIGHT AND DRY 
BEFORE CONTINUING 
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IF CAR STILL DOES NOT START, IT IS TIME 
TO CHECK THE SPARK PLUGS: 


DOES SPARK FROM THE END OF THE PLUG WIRE 
JUMP 3/8 INCH OR MORE? 
(Y - YES, N - NO)? 
> OK N < 


The order in which the expert system gives the suggestions, and 
which suggestions it makes, depends upon the answers you give: 


IS THERE ANY SPARK AT ALL? 
(Y - YES, N - NO)? 
> OK Y< 


ARE PLUGS GREASY? 
(Y - YES, N - NO)? 
> OK N < 


IF THIS IS AN EMERGENCY, TRY CLOSING 
THE GAP TO ABOUT HALF NORMAL 


DO YOU HAVE GAS IN THE TANK? 
(Y - YES, N —- NO)? 
> OK Y < 


ARE ALL FUEL AND VACUUM LINES SECURE? 
(Y - YES, N - NO)? 
> OK Y< 


REMOVE THE AIR CLEANER FROM THE 
CARBURETOR 
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DOES IT LOOK DRY? 
(Y - YES, N — NO)? 
> OK N < 


HAVE YOU BEEN CRANKING THE STARTER A 
LOT IN THE PAST FEW MINUTES? 
(Y - YES, N - NO)? 
> OK Y< 


WAIT FOR A MINUTE OR SO, THEN HOLD THE 
GAS PEDAL STEADILY ON THE FLOOR WITHOUT 
PUMPING IT. THIS SHOULD GET YOU GOING 


If you ever have trouble starting your car, and you’d like your 
computer to save you from having to call an emergency repair 
service, enter the following listing, and you’ll have an AUTO 
MECHANIC at your beck and call: 


10 REM THE AUTO MECHANIC 

20 CLS 

30 PRINT "SO YOU'RE HAVING AUTOMOBILE PR 

OBLEMS," 

40 PRINT "LET'S SEE IF WE CAN PIN DOWN 
THE TROUBLE..." 

50 PRINT 

60 PRINT "ENTER A LETTER WHICH DESCRIBES 

PROBLEM:" 


70 PRINT 

BO PRINT " A - ENGINE WON'T TURN OVER" 
90 PRINT " B - ENGINE TURNS, BUT WON'T 
START" . 

100 PRINT " C - STARTS, THEN STALLS STR 


AIGHT AWAY" 
110 PRINT " D —- CAR RUNS, BUT STALLS A 
Lot" 
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120 PRINT " E - CAR RUNS, BUT IDLES ROU 
GHLY" 

130 IF INKEY$<>"" THEN 130 

140 AS=INKEYS 

150 IF A$<"A" OR AS>"E" THEN 140 

160 GOSUB 1560 

170 ON ASC(A$)-64 GOTO 200,580,1200,1230 
71350 

180 END 

190 REM *** #88444 HEEEE 

200 REM WON'T TURN OVER 

210 PRINT "WE'LL START BY CHECKING THE B 

ATTERY,." 

220 PRINT "TURN ON THE LIGHTS," 

230 PRINT TAB(6)3;"ARE THEY DIM?" 

240 GOSUB 1520 

250 IF A$="N" THEN 350:REM BATTERY OK 
260 PRINT "ARE BATTERY CABLES LOOSE OR C 
ORRODED?" 

270 GOSUB 1520 

280 IF A$S="Y" THEN PRINT "TIGHTEN AND CL 
EAN" 

290 GOSUB 1580 

300 PRINT "IS FAN BELT LOOSE?" 

310 GOSUB 1520 

320 IF AS="Y" THEN PRINT TAB(8); "TIGHTEN 
THE FAN BELT" 

330 GOSUB 1580 

340 PRINT "JUMPER LEADS OR A PUSH SHOULD 
BE ENOUGH TO START THE CAR": END 

350 PRINT "IS THERE LOOSENESS OR CORROSI 
ON AT THE" 

360 PRINT "STARTER END OF THE BATTERY CA 
BLE" 
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370 GOSUB 1520 

380 IF A$="Y" THEN PRINT "TIGHTEN AND CL 
EAN THE CONNECTIONS" 

390 GOSUB 1580 

400 PRINT “PUT A PIECE OF METAL ACROSS T 
HE" 

410 PRINT “SOLENOID TERMINALS. DOES STAR 
TER WORK?" 

420 GOSUB 1520 

430 IF A$S="Y" THEN PRINT “THE IGNITION § 
WITCH IS PROBABLY FAULTY" 

440 GOSUB 1580 

450 IF AS="Y" THEN PRINT TAB(4)3"IT SHOU 
LD BE REPLACED": END 

460 PRINT "DOES STARTER CLICK?" 

470 GOSUB 1520 

480 IF A$S="Y" THEN PRINT "THE STARTER MA 
Y BE JAMMED":GOTO 520 

490 PRINT "AS NOTHING HAPPENED, THE SOLE 
NOID Is" 

500 PRINT "PROBABLY FAULTY. A PUSH MAY § 
TART" 

510 PRINT TAB(12);"YOUR CAR.":END 

520 REM STARTER JAMMED 

530 PRINT "TURN THE IGNITION OFF, AND PU 
T THE CAR" 

540 PRINT "IN A HIGH GEAR. PUSH CAR FOR 
A FOOT OR" 

550 PRINT "SO TO POP STARTER LOOSE.":END 


560 RETURN 

570 REM *#**#eee eee 44% 

580 REM TURN OVER, WON'T START 

580 PRINT “CHECK WIRES AT POINTS FOR DAM 
PNESS," 
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600 PRINT "IS THERE A CHANCE AREAS ARE D 
AMP?" 

610 GOSUB 1520 

620 IF AS="Y" THEN PRINT "SPRAY WITH MOI 
STURE REMOVAL SPRAY":GOSUB 1580 

630 PRINT "IS THERE DUST VISIBLE ON THE 
INSULATING" 

640 PRINT TAB(6);"PART OF THE COIL, OR O 
N THE" 

650 PRINT TAB(11);"DISTRIBUTOR CAP?" 

660 GOSUB 1520 

670 IF AS$="Y" THEN PRINT "WIPE COIL SECT 
ION AS WELL AS INSIDE" 

680 IF A$="Y" THEN PRINT TAB(6)3"AND OUT 
SIDE OF CAP,":GOSUB 1580 

690 PRINT "ENSURE ALL WIRES ARE TIGHT AN 
D DRY BEFORE CONTINUING" 
700 GOSUB 1580 

710 PRINT "IF CAR STILL DOES NOT START, 
IT IS TIME TO CHECK THE SPARK PLUGS:" 
720 GOSUB 1580 

730 PRINT "DOES SPARK FROM THE END OF TH 
E PLUG WIREJUMP 3/8 INCH OR MORE?" 

740 GOSUB 1520 

750 IF AS="Y" THEN PRINT "THE PLUGS ARE 
FAULTY":GOSUB 1580 

760 IF A$S="N" THEN 830 

770 PRINT "ARE PLUGS GREASY?" 

780 GOSUB 1520 

790 IF A$="Y" THEN PRINT "AN EMERGENCY R 
EPAIR CANNOT BE MADE" 

800 IF A$="Y" THEN PRINT "WHILE PLUGS AR 
E IN THAT STATE.":GOSUB 1580:G0OTO 770 
810 IF A$="N" THEN PRINT “IF THIS IS AN 
EMERGENCY, TRY CLOSING" 
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820 IF A$="N" THEN PRINT "THE GAP TO ABO 
UT HALF NORMAL":GOSUB 1580:GOTO 910 

830 PRINT "IS THERE ANY SPARK AT ALL?" 
840 GOSUB 1520 

850 IF A$S$="Y" THEN 770 

860 GOSUB 870:END 

870 PRINT "CHECK ROTOR, COIL AND DISTRIB 
UTOR CAP" 

880 PRINT "FOR CRACKS, IF THERE AREN'T A 
NY THERE," 

890 PRINT "IT LOOKS AS IF THE POINTS OR 
CONDENSER Is YOUR PROBLEM" 

900 PRINT “A REPAIR MAY WELL BE NEEDED"; 
RETURN 

910 PRINT "DO YOU HAVE GAS IN THE TANK?" 


920 GOSUB 1520 

930 IF A$="N" THEN PRINT "FILL TANK AND 

TRY AGAIN":GOSUB 1580 

940 PRINT "ARE ALL FUEL AND VACUUM LINES 
SECURE?" 

950 GOSUB 1520 

960 IF A$="N" THEN PRINT “ATTEND TO THES 
E AND TRY AGAIN":GOSUB 1580 

970 PRINT " REMOVE THE AIR CLEANER FRO 

M THE" 

980 PRINT TAB(13);"CARBURETOR":GOSUB 158 
0 

990 PRINT "DOES IT LOOK DRY?" 

1000 GOSUB 1520 

1010 IF A$="N" THEN 1080 

1020 PRINT "TURN THE ENGINE OVER A FEW T 
IMES WITH" 

1030 PRINT "YOUR HAND SEALING THE AIR IN 

TAKE":GOSUB 1580 

1040 PRINT "IS YOUR HAND WET WITH GAS?" 
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1050 GOSUB 1520 


1060 IF A$="N" THEN PRINT "UNSCREW GAS C 
AP IN CASE AIR VENT IS PLUGGED" 

1070 IF A$="N" THEN PRINT "THE FUEL PUMP 
MAY NOT BE WORKING":GOSUB 900:END 

1080 PRINT "HAVE YOU BEEN CRANKING THE S 
TARTER A" 

1080 PRINT "LOT IN THE PAST FEW MINUTES? 
" 

1100 GOSUB 1520 

1110 IF A$="N" THEN 1150 

1120 PRINT "WAIT FOR A MINUTE OR SO, THE 
N HOLD THE " 

1130 PRINT "GAS PEDAL STEADILY ON THE FL 
OOR WITHOUT" 

1140 PRINT "PUMPING IT. THIS SHOULD GET 

YOU GOING": END 

1150 PRINT "THE ENGINE MAY WELL BE FLOOD 
ED AT THIS" 

1160 PRINT "POINT AND THE FLOAT VALVE ST 
UCK OPEN.":GOSUB 1580 

1170 PRINT "TAP THE SIDE OF THE CARBURET 
oR" 

1180 PRINT "THEN TRY THE STARTING PROCES 
S AGAIN": END 

1190 REM £ESHREESEEEEE EE 

1200 REM STARTS, THEN STALLS 

1210 PRINT "THIS SUGGESTS A FAULTY BALLA 
ST RESISTOR WHICH SHOULD BE REPLACED": EN 
D 

1220 REM See 46444%4 € 

1230 REM RUNS, STALLS A LOT 

1240 PRINT "THE PROBLEM IS EITHER CAUSED 
BY:" 
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1250 PRINT TAB(7);"SHORTING (OR LOOSE) W 
IRES;" 

1260 PRINT TAB(7);"A WEAK SPARK; OR" 
1270 PRINT TAB(7)3"A FAULT IN THE FUEL §S 
YSTEM" 

4280 PRINT “CHECK FIRST FOR LOOSE OR SHO 
RTING WIRES":GOSUB 1580 

4290 PRINT "IF THEY ARE NOT OK, REPAIR, 
IF THEY ARE,IT COULD BE THE SPARK PLUGS" 


1300 GOSUB 870 

1310 PRINT "THERE IS A FINAL CHECK WE CA 
N TRY ON" 

1320 PRINT "YOUR SPARK PLUGS":GOSUB 1580 


1330 GOTO 1360 

1340 REM *#*# #4444444 R 

1350 REM RUNS, ROUGH IDLE 

1360 PRINT "IT COULD WELL BE THAT ONE OR 
MORE OF" 

1370 PRINT "YOUR SPARK PLUGS ARE FAULTY, 
";GOSUB 1580 

1380 PRINT “DISCONNECT THEM ONE AT A TIM 
E. THE ONES" 

1390 PRINT “WHICH DO NOT CAUSE THE ENGIN 
E IDLE TO" 

1400 PRINT "DROP ARE FAULTY. CHECK THESE 
THEN" 


1410 PRINT "RETURN TO THE SYSTEM.":GOSUB 
1580 

1420 PRINT "DID TEST SHOW ANY PLUGS WERE 
FAULTY?" 

1430 GOSUB 1520 

1440 IF A$="Y" THEN PRINT "REPLACE ALL P 
LUGS IF YOU CAN, OR JUST" 
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1450 IF A$="Y" THEN PRINT "THE ONES WHIC 

H TESTED FAULTY":GOSUB 1580 

1460 PRINT "THE MOST COMMON CAUSE OF A B 

AD IDLE," 

1470 PRINT “ASSUMING THAT THE PLUGS ARE 

OK, IS THAT" 

1480 PRINT "YOUR GAS MIXTURE IS SET TOO 

RICK" 

1490 PRINT "SO YOU SHOULD ADJUST THIS"sE 

ND 

1500 PRINT "ADJUST THE IDLE SPEED-SCREW 

ON THE THROTTLE LINKAGE": END 

1510 REM *### #4 HHH EH HEE 

1520 PRINT TAB(16);"(Y - YES, N — NO)?" 

1530 IF INKEY$<>"" THEN 1530 

1540 AS=INKEYS 

1550 IF AS$<>"Y" AND AS<>"N" THEN 1540 

1560 PRINT TAB(22)3"> OK "sAS3" <" 

1570 BEEP:REM ADD 'BEEP! OR SIMILAR 
SOUND IN THIS LINE 

1580 FOR T=1 TO 1000:NEXT T 

1590 PRINT 

1600 RETURN 


As well as seeing how a rule-based system can work by using this 
program, I hope you can appreciate one of the real disadvantages of 
having a system in which the rules are ‘hard-wired’. They are 
extremely difficult to modify, without almost totally destroying the 
program. Tracking down an error of judgement by the system could 
also be difficult, and there is no possibility of the system ‘learning 
on the job’, as other programs (such as FUZZY RITA, which we 


come to later in this book) can do. 


Despite these disadvantages, in many situations a purpose-built, 
hard-wired system like THE AUTO MECHANIC is far more useful 
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within its domain than would be a general system which had simply 
been taught about the subject. 


You need to weigh up these advantages and disadvantages when 
determining which kind of expert will best serve your specific needs. 
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Chaper Five 
The Doctor Is In 


In my book Exploring Artificial Intelligence on your Microcomputer 
(Interface Publications Ltd., UK, 1984) I introduced a fictitious 
expert system called MEDICI, which asked a number of questions 
and from the answers gave specific advice on health and longevity. I 
decided to actually create a MEDICI for this book. 


The best way to live for a long time is to choose parents and grand- 
parents with long lives. As that removes the element of choice from 
the matter, it is up to most of us to accept the second-best way. This 
is to live from day-to-day applying the knowledge of nutrition and 
health which man has acquired. Of course, few of us live as 
intelligently as we could, or apply all the information we’ve come 
across. If nothing else, that would probably be a pretty boring way 
to live. 


MEDICI will allow you to tell it how you really live, rather than ask 
you about the health information which you believe, but do not 
consistently apply to your life-style. And once the expert system 
has given you a health ‘rating’ and commented on your health 
status, it will indicate the range in which your life expectancy may 
well lie. You can then rerun the system, and see what changes you 
would have to make in your life-style in order to increase the number 
of years you have in which to write expert systems on your 
computer. 
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Let’s run MEDICI past someone (an unwilling volunteer from my 
office, actually) and see what it comes up with: 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH [SELECT ONE): 


A - I AM BADLY OVERWEIGHT 

B - I AM FAIRLY OVERWEIGHT 

C - I AM SLIGHTLY OVERWEIGHT 

D - MY WEIGHT IS ABOUT RIGHT 

E - I AM THINNER THAN I SHOULD BE 
OK Cc 

-5 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH [SELECT ONE): 


I ENGAGE IN EXERCISE, THAT 

RAISES MY HEARTBEAT TO 120 OR MORE, 

FOR AT LEAST THE FOLLOWING NUMBER 
OF HOURS A WEEK: 


A - LESS THAN A QUARTER 

B - MORE THAN A QUARTER, UP TO 
THREE-QUARTERS 

C - FROM THREE-QUARTERS OF AN HOUR 
UP TO ONE AND A HALF 

D - FROM ONE AND A HALF TO 
TWO AND A HALF 

E - MORE THAN TWO AND A HALF HOURS 


OK A 
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WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH (SELECT ONE): 


WHEN DRIVING: 


A I HARDLY EVER WEAR A SEAT BELT 

B - I WEAR A SEAT BELT AROUND A QUARTER 
OF THE TIME 

C - I WEAR A SEAT BELT EVERY SECOND 

JOURNEY 

I WEAR A SEAT BELT FOR MOST, BUT NOT 

ALL TRIPS 

E - I ALWAYS WEAR A SEAT BELT 


o 
I 


OK E 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH (SELECT ONE): 


I AM CONSCIOUS OF NUTRITION AND TRY 
TO EAT HEALTHILYs 


- ALL THE TIME 

- NEARLY ALL THE TIME 

A FAIR PROPORTION OF THE TIME 
- FROM TIME TO TIME 

- HARDLY AT ALL 


moow yp 
! 


OK D 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH (SELECT ONE): 


SMOKING (A CIGAR COUNTS AS A CIGARETTE) 


- NOT AT ALL 

- LESS THAN 15 CIGARETTES A DAY 
15 TO 25 CIGARETTES A DAY 

- 26 TO 42 CIGARETTES A DAY 

- MORE THAN 42 CIGARETTES A DAY 


moow > 
I 


OK A 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH (SELECT ONE): 


ALCOHOL -—- HOW MANY DRINKS [ON AVERAGE) 
DO YOU HAVE EACH DAY? 


A - NONE 

B - LESS THAN 3 
Cc - 3 TO 6 

D- 7 TO 9 

E - MORE THAN 9 


OK Cc 
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PERSONAL ASSESSMENT FROM MEDICIs: 


WEIGHT:-5 
EXERCISE: 
CAR SAFETY: 
NUTRITION: 
SMOKING: 
ALCOHOL:-6 
STRESS:-8 


o- oa oO 


YOUR RAW RATING IS -10 


ON A SCALE WHERE ZERO IS AVERAGE, 
THE LOWEST RATING IS BELOW -80, AND 
THE HIGHEST IS OVER 30 


THIS INDICATES YOUR HEALTH STATUS 
IS BELOW AVERAGE 


LIFE EXPECTANCY: 
MALE FEMALE 
60 TO 66 65 TO 71 


Here’s the listing, so you can check on your current health status: 


10 REM MEDICI 


PERSONAL CHECKUP 


20 CLS 

30 GOSUB 1250 

40 PRINT "A - I AM BADLY OVERWEIGHT" 

50 PRINT "B -—- I AM FAIRLY OVERWEIGHT" 

60 PRINT "C —- IT AM SLIGHTLY OVERWEIGHT" 

70 PRINT "D -—- MY WEIGHT IS ABOUT RIGHT" 

80 PRINT "E — I AM THINNER THAN I SHOULD 


BE" 


$0 GOSUB 1170 
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WEIGHT=0 
110 PRINT 
120 GOSUB 


100 WEIGHT=5*(ASC(A$)-68):IF A$="E" THEN 
WEIGHT 
1250 
"I ENGAGE IN EXERCISE, THAT" 


130 PRINT 
140 PRINT 
MORE," 
150 PRINT 

MBER" 

160 PRINT 

170 PRINT 

180 PRINT 

190 PRINT 
0 

200 PRINT 
HOUR 

210 PRINT 


220 PRINT 
HOURS" 
230 GOSUB 


"RAISES MY HEARTBEAT TO 120 OR 
"FOR AT LEAST THE FOLLOWING NU 


TAB(8);"OF HOURS A WEEK;:" 


"A - LESS THAN A QUARTER" 

"B - MORE THAN A QUARTER, UP T 
THREE-QUARTERS" 

"C - FROM THREE-QUARTERS OF AN 
UP TO ONE AND A HALF" 

"D - FROM ONE AND A HALF TO 
TwO AND A HALF" 

"E - MORE THAN TWO AND A HALF 

1170 


240 EXERCISE=5*(ASC(A$)-63)-5:IF A$="A" 
THEN EXERCISE=0 


250 PRINT EXERCISE 

260 GOSUB 1250 

270 PRINT "WHEN DRIVING: "sPRINT 

280 PRINT "A —- I HARDLY EVER WEAR A SEAT 
BELT" 

290 PRINT "B — I WEAR A SEAT BELT AROUND 
A QUARTER OF THE TIME" 

8300 PRINT "C —- I WEAR A SEAT BELT EVERY 

SECOND JOURNEY" 

310 PRINT "D -—- I WEAR A SEAT BELT FOR MO 
ST, BUT NOT ALL TRIPS" 

320 PRINT "E — I ALWAYS WEAR A SEAT BELT 
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330 GOSUB 1170 

340 SEATBELT=2*(ASC(A$)-65) 

350 PRINT SEATBELT 

360 GOSUB 1250 

370 PRINT "I AM CONSCIOUS OF NUTRITION A 
ND TRY TO EAT HEALTHILY:" 

3880 PRINT 

390 PRINT "A -— ALL THE TIME" 

400 PRINT "B - NEARLY ALL THE TIME" 

410 PRINT "C —- A FAIR PROPORTION OF THE 

TIME" 

420 PRINT "D — FROM TIME TO TIME" 

430 PRINT "E —- HARDLY AT ALL" 

440 GOSUB 1170 

450 DIET=-ASC(A$)+69 

460 PRINT DIET 

470 GOSUB 1250 

480 PRINT "SMOKING (A CIGAR COUNTS AS A 

CIGARETTE)" 

490 PRINT 

500 PRINT "A -— NOT AT ALL" 

510 PRINT "B - LESS THAN 15 CIGARETTES A 
DAY" 

520 PRINT "C - 15 TO 25 CIGARETTES A DAY 


530 PRINT "D - 26 TO 42 CIGARETTES A DAY 


540 PRINT "E 
DAY" 

550 GOSUB 1170 

560 SMOKING=-7*(ASC[(A$)-65) 

570 PRINT SMOKING 

580 GOSUB 1250 

590 PRINT “ALCOHOL - HOW MANY DRINKS (ON 
AVERAGE) DO YOU HAVE EACH DAY?" 


MORE THAN 42 CIGARETTES A 


600 
610 
620 
630 
640 
650 
660 
670 
680 
680 
700 
710 
720 
730 
740 


750 
T 6 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
CIs 
870 
880 
890 
gs00 
910 
920 


PRINT 


PRINT "A 
PRINT "B 
PRINT "C 
PRINT "D 
PRINT "E 
GOSUB 1170 
DRINK=-30 
IF AS="A" 
IF A$="B" 
IF A$="C" 
IF A$="D" 


LESS THAN 3" 
3 TO 6" 
7 TO 9" 
MORE THAN 9" 


THEN DRINK=0O 
THEN DRINK=1 
THEN DRINK=DRINK/5 
THEN DRINK=DRINK/2 


PRINT DRINK 
GOSUB 1250 
"IN GENERAL, HOW STRESSFUL 
LD YOU SAY"; 


PRINT 


wou 


PAS 


PRINT "YOUR LIFE HAS BEEN IN THE 
MONTHS" 

PRINT 

PRINT "A -— EXTREMELY STRESSFUL" 
PRINT "B -—- FAIRLY STRESSFUL" 
PRINT "CGC —- SLIGHTLY STRESSFUL" 
PRINT "D - NEUTRAL" 

PRINT "E - NOT STRESSFUL" 

GOSUB 1170 
STRESS=INT(2.5*(ASC(A$)-69) ) 
PRINT STRESS 

GOSUB 1300:CLS 

PRINT "PERSONAL ASSESSMENT FROM MEDI 
PRINT 

PRINT TAB(8); "WEIGHT: "WEIGHT 


PRINT 
PRINT 
PRINT 
PRINT 


TAB(6); "EXERCISE: "EXERCISE 
TAB(4); "CAR SAFETY: "SEATBELT 
TAB(5)s;"NUTRITION: "DIET 
TAB(7); "SMOKING: "SMOKING 
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930 PRINT TAB(7);"ALCOHOL: "DRINK 

940 PRINT TAB(8);"STRESS:"STRESS 

§50 GOSUB 1300 

960 ANT=WEIGHT+EXERCISE+SEATBELT+DIET+SM 
OKING+DRINK+STRESS 


970 GOSUB 1300:PRINT 


980 PRINT " YOUR RAW RATING IS "ANT:P 
RINT 

990 PRINT " ON A SCALE WHERE ZERO IS AV 
ERAGE," 

1000 PRINT "THE LOWEST RATING IS BELOW - 
80, AND" 

1010 PRINT " THE HIGHEST IS OVER 30" 


1020 GOSUB 1300:PRINT 

1030 IF ANT<6 AND ANT>-6 THEN A$="AVERAG 

E":L$="62 TO 73 72 TO 78" 

14040 IF ANT<-5 AND ANT>-21 THEN A$="BELO 

W AVERAGE":L$="60 TO 66 65 TO 71" 

1050 IF ANT<-20 THEN A$="POOR"sL$="60 OR 
LESS 65 OR LESS" 

1060 IF ANT<-45 THEN A$="VERY POOR" 

1070 IF ANT<-60 THEN A$="VERY, VERY POOR 
i 

1080 IF ANT>S AND ANT<15 THEN A$="GOOD": 

L$="74 TO 80 79 TO 85" 

1090 IF ANT>14 THEN A$="EXTREMELY GOOD": 


L$="81 PLUS 86 PLUS" 
1100 PRINT "THIS INDICATES YOUR HEALTH §S 
TATUS Is ";A$ 


1110 PRINT ‘x 
1120 PRINT "LIFE EXPECTANCY:" 

1130 PRINT TAB(3); "MALE ‘ FEMALE" 
1140 PRINT TAB[(3);L8 


1150 END 
1160 REM **#### #44844 
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1170 REM ACCEPT INPUT 

1180 IF INKEY$<>"" THEN 1180 

1190 AS=INKEYS 

1200 IF AS<"A" OR AS$>"E" THEN 1190 

1210 PRINT:PRINT TAB(12)5 "0K "SA$ 
1220 RETURN 

1230 REM FERRE EE 

1240 REM DELAY/SPACE OUT 

1250 FOR J=1 TO 1000:NEXT J 

1260 CLS 

1270 PRINTsPRINTsPRINT:PRINT 

1280 PRINT "WHICH OF THE FOLLOWING IS CL 
OSEST TO THE TRUTH (SELECT ONE):" 
1290 PRINT 

1300 FOR J=1 TO 400:NEXT J 

1310 RETURN 


The expertise in MEDICI comes from very rough ee I drew from Dr Thomas Holmes’ famous 
Social Readjustment Rating Scale; longevity charts published by the Metropolitan Life Insurance Company; Dr 
Donald Vickey’s book Life Plan for your Health (Addison-Wesley, Reading, MA., 1978) and Dyveke Spino’s 
fascinating book New Age Training for Fitness and Health (Grove House Inc., San Francisco, CA., 1979). As I 
am not a doctor, and as I’ve made some very i and ready approximations in working out this program 
(including lots of phase it over and over again, and fiddling with the results), its output should be taken with a 
moderately large grain of salt. However, it is not totally devoid of realism, and serves well as a demonstration of 
what a diagnostic expert system could be like. 
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Chapter Six 
Growing Your Own Expert 


Although programs such as THE AUTO MECHANIC and 
MEDICI are of interest, and demonstrate clearly how many expert 
systems currently in use in the world work, they have two major 
disadvantages. The first is that they only encode expertise on a 
specific subject; they are domain-bound. The second disadvantage is 
that before the program can be written, someone has to actually 
have the expertise and know the answers in order to construct the 
knowledge base. 


If you already know how to check for minor problems with your car, 
you’re not likely to find it worthwhile turning on your computer to 
discover the state of your spark plugs. 


However, as I mentioned earlier in the book, many ‘real world’ 
expert systems were developed only after the knowledge of a human 
expert was drawn out and put into some sort of systematic 
framework by a ‘knowledge engineer’. The engineer tries to track 
down the heuristics by which a problem is solved by the human 
expert. (A heuristic is a path towards a goal which has been worked 
out by experience, rather than by calculation; it is a working rule-of- 
thumb. A path of this type is not guaranteed to produce a certain 
result, although experience has shown that in the majority of cases 
it is likely to at least come close to achieving a particular goal. Chess 
programs play, to a large extent, heuristically. An algorithmic 
approach, in contrast to a heuristic one, is a one in which a technique 
or procedure is applied which inevitably produces a particular 
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result. Your computer uses inbuilt algorithms for such things as 
adding numbers together.) 


The organised expertise from a human expert is preserved within a 
program, so the expertise can be tapped. Think how much more 
interesting and valuable it would be if we could create a program 
which was able to deduce a set of rules for itself, simply from raw 
data. This would be an achievement. It would be a bigger 
achievement if we could write a program which could do this in a 
field in which even human experts lack precise rules. 


If it was possible to do this — to create a program which could 
create its own rules from raw data, and use them to get satisfactory 
results in ways in which humans could not — it would be extremely 
valuable if the programe could then explain to use the nature of the 
rules it has developed, so we could apply them ourselves. As well as 
being a servant, the expert system would then have become a 
research assistant and an instructor. 


We are going to write such a program in this section of the book. 
Although staticians may be a little horrified at the somewhat 
unrigorous way in which some of the numbers are manipulated by 
the program, the proof of the expert system is in the performance. If 
it can become an expert on just about anything, even in fields where 
human beings are unable to create reliable heuristics, it really 
doesn’t matter too much what the numbers are doing. 


Meet FUZZY RITA 


Our system has another feature. Many decisions which face real- 
world experts do not have black and white outcomes. Although the 
answer to the question ‘Is number A bigger than number B”’ can 
only have one answer, a query like “Is vitamin X good for you” 
moves us quickly into the world of “‘it depends”. ‘Vitamin X is 
often good for new-born babies, except when they have ES-type 
blood; if their mothers practice karate this can modify the value of X 


49 


to such babies.” This ‘rule of thumb’ includes often good, except 
when and can modify; all pretty loose, fuzzy concepts. 


As you're sure to have guessed from the name, FUZZY RITA is at 
home in a world in which cause and effect can not always be put in 
neat little categories. (The name Rita comes from the highly- 
successful London West End comedy Educating Rita. Our program 
can be educated, as the subroutine from line 970 indicates. The 
adjective Fuzzy not only makes for a delightful name but indicates 
the nature of the reasoning the program can demonstrate. It will 
also perform well in a black and white world of yes/no answers.) 


The Components of an Expert System 


Before we proceed with the development of our system, we will 
review what we discussed earlier regarding the major parts of 
expert systems in general. Most commercially available programs 
have two major components, an inference engine and a knowledge 
base. The engine is the mechanism by which the expert system 
reaches conclusions. The knowledge base, fairly obviously, is the 
hard data which the system manipulates in order to reach its 
conclusions. 


There is one big advantage in keeping the two parts of the system 
separate. If the inference mechanism is a general-purpose device, it 
should be able to work with knowledge bases in various domains, 
‘thinking’ in any field determined by the nature of the knowledge 
base. 


We saw how this could work, earlier in the book, when we discussed 
MYCIN, the powerful Standford system for diagnosing infectious 
diseases. Stripped of its knowledge base, it became the inference 
engine EMYCIN (for Essential MYCIN). The addition of new 
knowledge bases transformed the doctor first into an auto mechanic 
(with the aid of a 1975 Pontiac Service Manual), a structural 
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analysis consultant (SACON), a medical specialist in the field of 
bleeding problems (CLOT), as well as systems with such intriguing 
names as LITHO, HEADMED and BLUEBOX. 


FUZZY RITA is not in the same family as MYCIN and its 
offspring. Rather than having to be spoon-fed a mass of rules, 
FUZZY RITA develops its own rules, modifying them when 
necessary if its conclusions are wrong. As it is fascinating to watch 
the rule base being built up, FUZZY RITA allows you the option of 
viewing the current state of the rules after each decision has been 
made. 


A General System 


FUZZY RITA was specifically created to be a general system, able 
to cope with data on almost any problem. This means that it is not 
always as ‘clever’ as it could be. As well, it can sometimes be a little 
long-winded in requesting information before reaching a conclusion 
(although it does have the ability, when more than two conclusions 
are possible, of determining that certain questions cannot effect the 
outcome; in such cases it will simply skip over these questions). 


Therefore, if you intend to use RITA in a specific field, for a long 
period of time, it is worth ‘tweaking’ it a bit, once you have it up and 
running, in order to improve its performance. The weight the system 
gives to exact matches between user answers and the information in 
its acquired knowledge base, and the attention it gives to those 
answers which are not exactly right, may well need a little fiddling 
in order to get the best results. All expert systems are tested by 
feeding them known examples, and comparing the system’s answer 
with the known data. Wrong answers suggest the rule base needs 
modifying, and you should not be afraid to do such modifying. 


Despite this, you’ll find RITA works surprisingly well in most 


situations. I worked out the limits which determine how RITA 
decides on the ‘most likely’ and ‘next most likely’ conclusions 
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simply by trial and error, subjecting the system to a wide range of 
examples, and changing the values as I went along. 


Is It a Cat or a Dog? 


This is one of the questions which have plagued wise people since 
the beginning of recorded history. Now, with the help of FUZZY 
RITA, you can determine it once and for all. 


From following through with RITA in action on this contrived 
example, it should be easy to understand how RITA works, and how 
it can be used on your own problems. The CAT/DOG problem is one 
in which the answer is ‘discrete’; it is either a cat or a dog. Medical 
diagnoses may well often be non-discrete: The evidence indicates an 
infection of the upper respiratory tract, or it could be a mild form of 
measles. FUZZY RITA can deal with both discrete and non-discrete 
outcomes, and does not need to be told which field the current 
problem occupies. The answers are always given in the form of THE 
MOST LIKELY RESULT IS... If the data which RITA has been 
fed, in conjunction with the rule base it has created, suggests that 
there are one or two almost equally likely results, it can give one or 
two additional conclusions prefaced by the words THE NEXT 
MOST LIKELY RESULT IS ... Once RITA has learned the 
difference between a cat and a dog, you'll generally get a single 
conclusion. 


The program begins by asking you if you want to see the updated 
knowledge base after each run. Press any key, before RETURN, if 
you do: 


PRESS ANY KEY, THEN <RETURN> IF YOU 
WANT TO SEE THE UPDATED KNOWLEDGE BASE 
AFTER EACH RUN; JUST PRESS 
<RETURN> IF YOU DON'T 
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Next you enter the ‘output options’ (that is, the possible conclusions 
the system can reach), pressing RETURN when you have finished 
entering these. FUZZY RITA, as written, can cope with up to fifty 
different outcomes: 


ENTER OUTPUT OPTION NUMBER 1 
(PRESS <RETURN> TO END) 

? DOG 

ENTER OUTPUT OPTION NUMBER 2 
(PRESS <RETURN> TO END) 

? CAT 


Once you’ve finished entering the options, RITA prints them up on 
the screen, and asks you to enter the ‘questions’ which the system 
will later ask. RITA can cope with up to fifty questions: 


ENTER QUESTION NUMBER 1 

(PRESS <RETURN> TO END) 
? EATS MICE AND GOES MIAOW 

ENTER QUESTION NUMBER 2 

(PRESS <RETURN> TO END) 
? ANIMAL 

ENTER QUESTION NUMBER 3 

(PRESS <RETURN> TO END) 
? BARKS FIERCELY AT ROBBERS 
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Again, you press RETURN to signal that you have finished 
entering questions. Once this has been done, RITA will tell you 
what subjects it is (or soon will be) capable of deciding between: 


HERE ARE THE THE SUBJECTS I CAN 
DISCRIMINATE BETWEENS 


THINK OF ONE, THEN PRESS <RETURND 


The questions are then presented one by one, and you are asked to 
respond to them with a number between 1 (meaning 100% true) and 
0 (for 100% false). This allows RITA to cope with discrete data (of 
the CAT/DOG, BLACK/WHITE variety) and with data which 
covers a range of values (such as the weight, or systolic blood 
pressure, of a patient). 


With data which can cover a wide range (like weight), it is easy to 
devise a system which allows you to represent the lowest weight 
reading as zero, and the highest as one. You'll see, in one weather 
forecasting example later, I simply divided the maximum and 
minimum temperatures by 10, meaning the vast majority of the 
temperatures were entered simply as a number such as .6 (for 6 
degrees). Any result above 1 I simply left as 1. Hours of sunshine 
were treated the same way, with 7 hours being entered as .7, and so 
on. It does not really matter what the numbers are, so long as you 
invent a rule which allows the range to fall between 1 and 0, and you 
stick to this rule, for that item of data. You can have different rules 
for different categories of data within a single program; RITA does 
not mind. 


You can also use the number you enter to represent such concepts as 
‘very’, ‘always’, and ‘not important’ in answer to such questions as 
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HOW RED IS THE PATIENT’S FACE (where presumably .9 
means ‘very’, and .1 indicates ‘not very much at all); DO YOU 
OFTEN HAVE PROBLEMS STARTING THE CAR (entering, 
say, .9 for ‘always’, and .4 for ‘from time to time’); and HOW 
IMPORTANT IS THE MORTGAGE RATE TO THIS LOAN 
APPLICANT (1 for ‘the most important issue’, through to .7 for 
‘fairly important’ and .1 for ‘not important’). 


The entered numbers do not have to be exact. Indeed, it hard to see 
how you can get a consistent numerical equivalent for a concept like 
‘hardly ever’. With RITA, close enough is nearly always good 
enough, so long as you are reasonably consistent within a particular 
category of data. 


As you can see, this means RITA is capable of coping with almost 
any problem you can throw at it, whether the data is of the YES/NO 
type, is on a measured scale (like temperature), or is of the ‘shades of 
meaning’ variety. Our CAT/DOG example is, at least for our 
purposes, almost totally a YES/NO situation. 


First we teach RITA about dogs: 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) [$ TO END RUN] 


EATS MICE AND GOES MIAOW? O 


www wm wm mM Mm Mm em Mm we em em wm ww wm em eM we wm em em ew ew ew ew ew www Bw ew ee ee 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) [$ TO END RUN] 


ANIMAL? 1 


ENTER A NUMBER FROM 
4 (TRUE) TO O (FALSE) [$ TO END RUN] 
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BARKS FIERCELY AT ROBBERS? 1 
THE MOST LIKELY RESULT IS DOG 


IS THE MOST LIKELY RESULT CORRECT 
(Y OR N)? Y 


By luck, the system comes up with DOG, the correct answer 
(actually, it wasn’t luck, but simply that if RITA has no information 
at all on which to make a decision, it picks the first output option). 


RITA updates the rule base, and then reports its findings to us: 


EATS MICE AND GOES MIAOW O 
ANIMAL 2 
BARKS FIERCELY AT ROBBERS 4 


EATS MICE AND GOES MIAOW O 
ANIMAL 0O 
BARKS FIERCELY AT ROBBERS 0O 


PRESS <RETURN> TO CONTINUE TRAINING 
OR ANY KEY THEN <RETURND TO USE RITA? 


It has assigned a value of 0 to the question EAST MICE AND 
GOES MIAOW, 2 to ANIMAL and 4 to BARKS FIERCELY AT 
ROBBERS. This does not mean it somehow thinks the BARKS 
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FIERCELY is more important than the ANIMAL category, as it 
has no information upon which to make such a decision. RITA 
multiplies the value it gives to each answer by a number which 
doubles with each question, so it multiples the answer to the first 
question by 1, the second by 2, the third by 4, the fourth by 8... 
and so on. You'll see that, so far, the CAT rule base is still full of 
zeros. This is because RITA has not yet come across a cat, and 
knows nothing about them. 


Let’s present the program with a cat, and see what it makes of it: 


THINK OF ONE, THEN PRESS <RETURND 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) [$ TO END RUN] 


EATS MICE AND GOES MIAOW? 14 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) {[$ TO END RUN] 


ANIMAL? 1 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) [$ TO END RUN] 


BARKS FIERCELY AT ROBBERS? QO 
THE MOST LIKELY RESULT IS DOG 


IS THE MOST LIKELY RESULT CORRECT 
(Y OR NJ)? N 
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The system comes up with DOG, as it is the best match to the data 
it holds (the ANIMAL question gained the same answer). Once you 
tell it that DOG was wrong, RITA checks to see how many 
alternative outcomes it has. If there are only two, it knows the 
outcome it did not give is the correct one for the data presented 
during the run, and adjusts its rule base accordingly: 


EATS MICE AND GOES MIAOW O 
ANIMAL 2 
BARKS FIERCELY AT ROBBERS 4 


EATS MICE AND GOES MIAOW 1 
ANIMAL 2 
BARKS FIERCELY AT ROBBERS QO 


PRESS <RETURN> TO CONTINUE TRAINING 
OR ANY KEY THEN <RETURN> TO USE RITA? 


You can see that RITA now has created the rule that a positive 
answer to EATS MICE AND GOES MIAOW and ANIMAL equals 
CAT, while positive answers to ANIMAL and BARKS FIERCELY 
AT ROBBERS equals dog. From now on, in this simplest possible 
case (two outcomes, YES/NO questions) RITA will not make a 
mistake. It has taught itself to distinguish between two animals. 
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Not So Straightforward 


The situation is not so straightforward when there are more than 
two outcomes, and RITA may need several trial runs before it is 
confident that it knows what is going on. Even then, it will ask if the 
most likely result it has given is correct (and if you say no, will ask 
about the second most likely one) and will modify its rules slightly if 
it makes an error. However, when there are more than two 
outcomes, RITA has an extra skill which comes into play. It can 
decide that certain questions are irrelevant, and do not help it reach 
its conclusions. (In the CAT/DOG example, the ANIMAL question 
was irrelevant; it did not give RITA additional information upon 
which to decide what sort of creature it was being faced with.) 


With the aid of an elementary chemistry text book (White, 1979), I 
decided to teach RITA to distinguish between magnesium, iron and 
lead. This, in fact, even for non-experts like myself is not very 
difficult, but it is considerably different from telling the difference 
between a cat and a dog, a subject on which I have a 100% expertise 
rating. 


We start by giving RITA the output options: 


ENTER OUTPUT OPTION NUMBER 1 
(PRESS <RETURN> TO END) 

? MAGNESIUM 

ENTER OUTPUT OPTION NUMBER 2 
(PRESS <RETURN> TO END) 

? IRON 

ENTER OUTPUT OPTION NUMBER 3 
(PRESS <RETURN> TO END) 

? LEAD 


www wm me wm wm wm wm wm mM mM mM mM wm mB wm wm wm wm em em em ew ew ee ee ee ee ee 
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Then we enter the discrimination questions: 


ENTER QUESTION NUMBER 1 
(PRESS <RETURN> TO END) 
? IS ITS DENSITY BELOW 8 G/CM*3 


ENTER QUESTION NUMBER 2 
(PRESS <RETURN> TO END) 
? IS IT A METAL 
ENTER QUESTION NUMBER 3 
(PRESS <RETURN> TO END) 
? IS IT POISONOUS 
ENTER QUESTION NUMBER 4 
(PRESS <RETURN> TO END) 
? DOES IT CONDUCT ELECTRICITY 
ENTER QUESTION NUMBER 5 
(PRESS <RETURN> TO END) 
? IS IT SHINY WHEN POLISHED 
ENTER QUESTION NUMBER 6 
(PRESS <RETURN> TO END) 
? DOES IT TARNISH EASILY 


RITA reports on the starting situation, and the training begins with 
lead as our chosen metal: 


HERE ARE THE THE SUBJECTS I CAN 
DISCRIMINATE BETWEEN: 


> MAGNESIUM 
> IRON 
> LEAD 
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THINK OF ONE, THEN PRESS <RETURND 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) [$ TO END RUN] 


Is ITS DENSITY BELOW 8 G/CM*3? QO 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) {$ TO END RUN] 


Is IT A METAL? 1 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) [$ TO END RUN] 


IS IT POISONOUS? 1 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) [$ TO END RUN] 


DOES IT CONDUCT ELECTRICITY? 14 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) [$ TO END RUN] 


IS IT SHINY WHEN POLISHED? OQ 


ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) [$ TO END RUN] 


DOES IT TARNISH EASILY? 1 
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THE MOST LIKELY RESULT IS MAGNESIUM 
THE NEXT MOST LIKELY IS LEAD 


IS THE MOST LIKELY RESULT CORRECT 
(Y OR NJ)? N 
Is MY SECOND CHOICE CORRECT 
(Y OR N)? Y 


We run through the questions a few more times, until the knowledge 
base looks like this: 


MAGNESIUM 


IS ITS DENSITY BELOW 8 G/CM*3 1 
Is IT A METAL 2 

Is IT POISONOUS O 

DOES IT CONDUCT ELECTRICITY 8 
IS IT SHINY WHEN POLISHED 0O 
DOES IT TARNISH EASILY 32 


Is ITS DENSITY BELOW 8 G/CM*3 1 
Is IT A METAL 2 

Is IT POISONOUS O 

DOES IT CONDUCT ELECTRICITY 8 
IS IT SHINY WHEN POLISHED 16 
DOES IT TARNISH EASILY 32 
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Is ITS DENSITY BELOW 8 G/CM*3 O 
Is IT A METAL 2 

IS IT POISONOUS 4 

DOES IT CONDUCT ELECTRICITY 8 
IS IT SHINY WHEN POLISHED 0 
DOES IT TARNISH EASILY 32 


This time, before pressing RETURN for the next run, we press 
another key, to indicate that training days are over, and it is time 
for RITA to begin work: 


PRESS <RETURN> TO CONTINUE TRAINING 
OR ANY KEY THEN <RETURND TO USE RITA? F 


One practical result of switching from training to working, apart 
from a slight change in the ‘conversation’, is that RITA now decides 
which questions will be asked, rather than automatically asking all 
of them: 


HERE ARE THE THE SUBJECTS I CAN 
DISCRIMINATE BETWEEN: 


> MAGNESIUM 
> IRON 


I AM READY NOW TO DETERMINE WHICH ONE 
YOU HAVE 

ENTER A NUMBER FROM 
1 (TRUE) TO O (FALSE) [$ TO END RUN] 
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IS ITS DENSITY BELOW 8 G/CM*3? 1 
ENTER A NUMBER FROM 
4 (TRUE) TO O (FALSE) [$ TO END RUN] 


Is IT POISONOUS? QO 
ENTER A NUMBER FROM 
4 (TRUE) TO O (FALSE) [$ TO END RUN] 


IS IT SHINY WHEN POLISHED? 1 


THE MOST LIKELY RESULT IS IRON 
THE NEXT MOST LIKELY IS MAGNESIUM 


IS THE MOST LIKELY RESULT CORRECT 
(Y OR N)? Y 


From now on, the knowledge base will only be updated if RITA is 
told that one of its conclusions is wrong. 


Is ITS DENSITY BELOW 8 G/CM*3? O 
ENTER A NUMBER FROM 
4 (TRUE) TO O (FALSE) {$ TO END RUN] 


IS IT POISONOUS? 1 

ENTER A NUMBER FROM 
4 (TRUE) TO O (FALSE) [$ TO END RUN] 
IS IT SHINY WHEN POLISHED? O 


THE MOST LIKELY RESULT IS LEAD 
THE NEXT MOST LIKELY IS MAGNESIUM 


IS THE MOST LIKELY RESULT CORRECT 
(Y OR N)? Y 


Chapter Seven 
Fuzzy Reasoning 


While it is reasonably easy to encode certainties (IF THIS is true 
THEN THIS IS ALWAYS true) into a computer program, 
expressing degrees of certainty is not so simple. Fuzzy logic, a term 
introduced by L A Zadeh (1979), deals with reaching conclusions 
from premises which lack precision. 


The conclusions drawn are expressed in terms of possibilities rather 
than probabilities such as are possible when the degree of certainty 
of a premise can be expressed precisely in a mathematical form. 
Most reasoning mechanisms (such as IF A IS ALWAYS B, AND C 
IS A THEN C IS B) are unable to cope with imprecision and 
possibilities. 


Imprecision lies behind the majority of human actions, from 
understanding speech to deciding which move to make in a game of 
chess. Computers do not, as we have seen, cope well with 
imprecision. A bit is either 0 or 1 (and never ‘possibly 1’). Encoding 
mechanisms to cope with fuzzy situations demands particular skills 
from programmers. 


In languages like PROLOG and HASTE (see chapters 11 through 
to 13), the degree of certainty is directly encoded. When using such 
declarative languages we can use terms such as in most cases, often, 
usually, sometimes, hardly ever, and so on. What is more, the terms 
can be linked together and compared, so we can say things like [f it 
is very likely that A is present then often B is hardly ever present. 
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In human (i.e. natural) languages, there is a set of terms which are 
used in our everyday lives which gives degrees of possibility to 
descriptive terms. The following should make it clear what I mean 
by that. Think of an adjective, such as red, long, or soggy. When you 
describe and object as red, long, or soggy, you often precede the 
adjective with a word or phrase which modifies the adjective in 
some way, giving it a more exact meaning. Such words and phrases 
as very, only slightly, not particularly and not at all give the 
adjective a degree of probability. In such cases, we can say that the 
‘linguistic variable’ is made up of two parts, a primary term (such 
as ‘red’) and a modifier. 


Although it is clearly impossible to give an exact probability rating 
for every use of particular modifiers (such as, for example, .95 for 
very and .2 for not particularly) it is possible, in practice, to assign 
values based on our understanding of the degree of ‘strength’ a 
particular modifier lends to an adjective, and — more importantly — 
on our knowledge of the object or whatever which is being descrived 
and the meaning of the adjective. 


Back in the Real World 


The CAT/DOG and MAGNESIUM/IRON/LEAD examples with 
FUZZY RITA were both contrived and demanded only YES/NO 
answers. It is time to see if the program can work as well with less 
definite data, and in a situation in which it is not easy (or impossible) 
to work out what the rules are. Such a situation is weather 
prediction. Although we can look at the sky in the morning, and say 
something profound like ‘‘It looks like it is going to rain’’ or “‘Let’s 
hope it clears up later”, we probably have little hard data with which 
to predict what the rest of today’s, or tomorrow’s, weather is going 
to be like. 


Weare going to look at weather patterns in two very different cities, 
London and Melbourne. We'll look fairly briefly at the London 
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pattern first, using four variables (hours of sunshine, maximum and 
minimum temperatures and millimeters of rain). Despite only using 
these few variables, you'll discover that RITA manages to perform 
extraordinarily well. Examining RITA’s performance in this field 
will make it easier to understand how the program works when we 
go through its important segments. 


Once we’ve looked at the London example, and worked our way 
through the program, we'll give it a set of more precise weather 
facts related to Melbourne, and see if its performance improves 
when it is given more exact data. 
London 
I told RITA that I wanted it to choose from one of three predictions 
for the one day’s weather, given information regarding the 
preceding day. It was to predict one of the following: 

— Rain tomorrow below 1mm 

— Rain tomorrow above 4mm 

— Rain tomorrow from 1 — 4mm 
Its discrimination questions were: 

— Minimum temperature (divided by 10, to make it into a 

value between zero and one, with any result above 1 entered 


as one) 


— Maximum temperature (with the figure manipulated in the 
same way) 


— Rainfall (divided by ten, left as one if over one) 
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— Hours of sunshine (divided by 10; no answers above one 
were created by this process; all figures in this exercise were 
rounded to the first decimal place) 


After a week of inputs, and RITA had encountered days which 
fitted all three possible outcomes, the rule base looked like this: 


RAIN TOMORROW BELOW 1 MM 


MINIMUM TEMPERATURE [(C /10) .4 
MAXIMUM TEMPERATURE (C /10) 1.9 
RAINFALL (MM /10) .5 

SUNSHINE (HOURS /10) 3.8 


RAIN TOMORROW ABOVE 4 MM 


MINIMUM TEMPERATURE [(C /10) .3 
MAXIMUM TEMPERATURE (C /10) 1.8 
RAINFALL (MM /10) 1.4 

SUNSHINE (HOURS /10) 35.4 


MINIMUM TEMPERATURE [(C /10) .8 
MAXIMUM TEMPERATURE (CC /10) 2 
RAINFALL (MM /10) 3.2 

SUNSHINE (HOURS /10) .8 


PRESS <RETURN> TO CONTINUE TRAINING 
OR ANY KEY THEN <RETURND TO USE RITA? 
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It is very interesting to examine this rule base and try and work out 
what rules RITA has devised, and to see how they compare with the 
kinds of rough ‘rules of thumb’ we use when predicting the weather. 


For predicting rain below 1mm, the program looks for a value of .4 
for the minimum temperature (and almost the same, .3, when 
looking for rain above 4mm), while a value of .8 is indicated as 
something worth looking for when trying to predict the 1 to 4mm 
case. This suggests that RITA believes, after examining just one 
week of weather, that a high (relatively speaking) minimum 
temperature is likely to lead to a medium rainfall (i.e. 1 to 4mm) the 
following day, while a low minimum suggests either very little (or 
no) rain or a lot (over 4mm) rainfall on the following day. This, at 
least to me, seems surprising. 


There’s not much in the values assigned for maximum temperature 
(1.9, 1.8 and 2) so perhaps, for the month in question, the maximum 
temperature is not too important. Today’s rainfall, by contrast, is 
considered an important variable. Low rain (a value of .5) suggests 
little rain the next day, which is in accord with our own feelings 
about weather occurring with a run of dry days, then wet ones, and 
so on, rather than every day’s weather being a self-contained 
package, independent of the preceding day. However, rather than 
saying ‘heavy rain today means heavy rain tomorrow’, RITA has 
concluded that a high value for rain today (3.2) suggests medium 
rain (1 to 4mm) the next day, and a moderate value for today’s rain 
(1.4) suggests heavy rain tomorrow. I guess, on reflection, that also 
seems reasonable. If most of the rain fell down today, perhaps there 
is less of it about to fall tomorrow. 


Finally, we'll look at hours of sunshine, and see what RITA made of 
these. The figures here show a wide variation (although you need to 
keep in mind that they’ve been multiplied by 16 before being added 
into the database; the variation in a particular category is the 
important thing, not the raw numerical value). To predict a day with 
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more than 4mm of rain, RITA looks for lots of sunshine (a value of 
35.4 is in the rule base), while very little sun (.8) suggests 1 to 4mm, 
and somewhat more (3.8) suggests the following day will be almost 
or completely dry (below 1mm). 


RITA’s rule base, at this point, seems to contain the following rules: 


— When looking for a fairly wet (above 4mm of rain) day 
tomorrow, RITA looks for a low minimum temperature, 
moderate rainfall and quite a bit of sun today. 


— To predict a dry day (below 1mm of rain) tomorrow, we can 
see that RITA examines the input for a low minimum 
temperature (although slightly higher than for the above 
4mm case), very little rain and — perhaps surprisingly — a 
fairly small amount of sun. 


— For the intermediate case (1 to 4mm of rain) tomorrow, 
RITA looks for a fairly high minimum temperature, a high 
(compared to the figure for the other two cases) ‘rain today’ 
figure, and a very low sunshine figure. 


How Well Did It Work? 


While it is fairly easy (and extremely interesting) to interpret the 
rule base which RITA built up in this run, it is of no value 
whatsoever if it doesn’t enable the expert system to actually predict 
the weather. I ran the program for 19 more days, and recorded its 
first prediction, the second prediction if it gave one (it will give a 
second, and perhaps a third, prediction if the data does not point 
overwhelmingly to one particular conclusion), and whether the first 
prediction was correct. If it was not, I checked the second 
prediction. 
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This was the result (out of 19 days): 


— Correct (first prediction only) — Tdays 
— Second prediction correct 

(if first one was wrong) — Tdays 
— Correct (first or second) — 14days 
— Totally wrong (first and second) — 5days 


This is a fair performance, taking into account the ‘most likely’ and 
‘next most likely’ findings. Remember, we did not give RITA any 
rules. We simply entered the data, and said whether the prediction 
made by the program was right or wrong. RITA made up the rules, 
and from very few examples managed to at least work out enough 
about the weather to make reasonable predictions. It is pretty 
amazing (at least to me) that although the program doesn’t ‘know’ 
what it is doing, it manages to create a rule which works, to some 
extent, in ‘real life’. 


What if we had given it more to work on, or had just asked it to 
predict a wet or dry day? Would RITA have performed better? We 
will attempt to answer those questions in due course, with the 
weather data from Melbourne. 


RITA continued to learn during the entire 26-day period for which 
the data was entered. I decided to run through the period again to 
see if its performance had improved. 


This was the result of its findings over the same 19-day period that 
it worked on before: 


— Correct (first prediction only) — 9days (up 2) 
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— Second prediction correct 


(if first one was wrong) — S8days(up 1) 
— Correct (first or second) — 17 days 
— Totally wrong (first and second) — 2days (down 3) 


I was extremely pleased with this improvement. It suggested that if 
we added more and more examples (rather than working through 
the same ones over and over again, although that appears to have a 
degree of merit), RITA would continue to learn. One way of giving 
RITA a lot of exercise (rather than the extremely tiresome one of 
typing in lots and lots of data) would be to put the recorded results 
(that is, the rainfall figures and all) in an array, along with the 
correct outcome, and just leave RITA to choose days at random for 
an hour or more, constantly refining its prediction constants. 


Modifications 


RITA builds up, as we’ve seen, a number which is stored against 
each discrimination question for each outcome option. If the system 
gives a wrong answer, it alters the numbers which it has stored for 
that option. It multiplies the figure it holds by five, adds in the new 
figure, and divides by six, and stores the result of this calculation. 
This ensures that a rogue set of data (such as a cat which barks 
fiercely at robbers, or a day when one hundred times the normal 
rainfall fell) does not totally destroy the more usual results. (A rogue 
set of data for the very first input, however, takes a long, long time 
for RITA to get over.) 


I tried other ratios of new to old data (like nine times the old, plus 
the new, divided by ten; and double the old, plus the new, divided by 
three) but they either meant the system learned far too slowly, or its 
database fluctuated wildly in response to the latest set of figures it 
had encountered. Like the rest of RITA (and many other expert 
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systems), the program was built up on a trial and error basis. I 
simply proceeded on a ‘change it if it doesn’t work/leave it if it does’ 
basis. 


Dissecting RITA 


I’m now going to work through the RITA program in some detail, a 
practice I have not followed elsewhere in this book. I am doing it for 
RITA because this is the most useful program in the book and it is 
the one you are most likely to want to adapt for creating your own 
expert systems. As written, it is a general purpose system. 


I suggested earlier that you might want to change some of the 
things the program does, when working in specific domains of your 
choice, in order to make RITA work more effectively in that 
particular domain. Run it as it is in your chosen domain, and then 
play around it to get as many ‘right’ answers as you can when the 
outcome is known. It is then far more likely to be correct when you 
do not know the outcome. And after all, this is the only time when 
the expert system actually becomes useful, when you have the data 
and want the program to make some decision on the basis of it. 


The program begins by dimensioning a number of arrays: 


1370 REM *# FOKKER EEEEEES 


1380 REM INITIALIZATION 

1390 CLS 

1400 REM REDUCE ARRAYS IN NEXT LINE IN 
ACCORDANCE WITH YOUR NEEDS 

1410 DIM A$(50),B(50,50),C(50),0(50) ,E$[ 

50),F(50),G6(50) 

1420 X$="" 

1430 PRINT "PRESS ANY KEY, THEN <RETURND 

IF You" 
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1440 PRINT "WANT TO SEE THE UPDATED KNOW 
LEDGE BASE" 

1450 PRINT " AFTER EACH RUN ¢ JUST P 
RESS" 

1460 PRINT " <RETURN> IF YOU DON! 
rT" 

1470 INPUT U$ 

1480 CLS 

1490 RETURN 


The 50’s in these arrays are far bigger than you're likely to need and 
use up quite a bit of memory (around 12K on my system, an IBM 
PC). The A$ array holds the names of the outcomes, and E$ is for 
the names of the discrimination questions, so you can easily reduce 
these if you know in advance how many outcomes there will be, and 
how many questions you will ask. You can change all the other 50’s 
to equal the number of discrimination questions you will ask. 
Alternatively, you might like to modify the program so that it asks 
you at the beginning how many outcomes and questions you have, 
and then dimensions the arrays in accordance with the answer you 
give. This section of the program also gets a value for U$ (empty, or 
not) which determines whether or not the program will display the 
updated database after each run. 


From here RITA goes on to accept the names of the possible 
conclusions it will be able to reach: 


1160 REM OUTPUT OPTIONS 

1170 TT=0 

1180 TT=TT+1 

1190 GOSUB 1500 

1200 PRINT "ENTER OUTPUT OPTION NUMBER"T 
TS (PRESS <RETURN> TO END)" 

1210 INPUT AS$(TT) 

1220 IF AS(TT)="" OR TT=51 THEN TT=TT-1:2 
RETURN 

1230 GOTO 1180 
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And the discrimination questions which will be asked: 


1250 REM DISCRIMINATION QUESTIONS 

1260 CLS 

1270 FOR J=1 TO TT 

1280 PRINT A$(J) 

1290 NEXT J 

1300 DQa=0 

1310 DQ=DQ+1 

1320 GOSUB 1500 

1330 PRINT " ENTER QUESTION NUMBER"DQ 
My (PRESS <RETURN> TO END)" 

1340 INPUT E$(DQ) 

1350 IF ES$(DQ)="" OR DQ=51 THEN DQ=DQ-1:; 
RETURN 

1360 GOTO 1310 


RITA asks you questions in the section of code from line 140: 


140 REM QUESTION USER 


150 CLS 

160 PRINT "HERE ARE THE THE SUBJECTS I C 
AN DISCRIMINATE BETWEEN:" 

170 PRINT 


180 FOR J=1 TO TT 

490 PRINT " > "ZA$(J) 

200 NEXT J 

210 GOSUB 1500 

220 IF X$="""THEN PRINT "THINK OF ONE, T 
HEN PRESS <RETURN>" 

230 IF X$<>"" THEN PRINT "I AM READY NOW 
TO DETERMINE WHICH ONE YOU HAVE" 

240 IF X$="" THEN INPUT J8 

250 ADD=,5 

260 FOR J=1 TO DQ 


75 


270 ADD=ADD+ADD 

280 GOSUB 1500 

290 IF X$<>"" AND TT>2 THEN 390:REM 
CHECK IF QUESTION CAN BE JUMPED 

300 PRINT " ENTER A NUMBER FROM" 

310 PRINT "4 (TRUE) TO O (FALSE) {s TO 

END RUN]J" 

320 PRINT:PRINT ES(J)3 

830 INPUT H$:IF H$="$" THEN PRINT: PRINT 

"THANK YOU":sPRINT: END 

340 C(J)=VAL(H$) 

350 C(J)=ADD*C(J) 

360 NEXT J 

370 RETURN 


A string is entered (line 330) after the question is printed by the 
preceding line. If the entered material is a dollar sign, the program 
terminates (after a polite THANK YOU) with line 330. Otherwise, 
the VAL of the string is set equal to an element of the C array (line 
340) and this is multiplied by the variable ADD in the next line. 
Before the J loop begins (which accepts the user input), ADD is set 
equal to .5 and it is added to itself (that is, its value doubles) each 
time through the loop (making it worth 1, 2, 4, 8, 16 and so on) 
before C(J) is multiplied by it. Once the program has been through 
the loop, control returns to a cycle of subroutine calls near the 
beginning of the program. 


Line 290 sends the program to the subroutine from line 390, which 
checks to see if a question can be missed out: 


390 REM CHECK IF QUESTION CAN BE 
JUMPED 
400 JUMP=1 
410 FOR W=1 TO TT 
420 IF ABS(B(W,J)-B(1,J))>.7 THEN JUMP=0 
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430 NEXT W 
440 IF JUMP=0 THEN 300 
450 C(JUMP}=B(W,J) 

460 GOTO 360 


It does this by comparing all the values held in the B array for that 
question. If they are within .7 of each other, RITA assumes that the 
information from that question can be safely ignored. This .7 is a 
figure you may well want to play with. 


Once all the questions have been asked, RITA goes to the most 
important routine, from line 480, where the decision is made and — 
if necessary — the rule base is updated: 


480 REM MAKE DECISION 

490 FOR J=1 TO TT 

500 D(J)J=O:E(J)=0:F(J)=0 

510 NEXT J 

§20 ADD=,5 

530 FOR J=1 TO TT 

540 ADD=ADD+ADD 

550 FOR X=1 TO DQ 

560 REM PLAY WITH VALUES IN NEXT THREE 
LINES FOR MOST EFFICIENT RESULTS 

570 IF C(X)=B(J,X) THEN D(J)=D(J) +1 

580 IF ABS(C(X)-B(J,X))<.6*ADD THEN E[J) 

=E(J)+.4 

590 IF ABS(C(X)-B(J,X))<1.2*ADD THEN F(J 

J=F(J)+.1 

600 NEXT X 

610 NEXT J 

620 A1=1:A2=1:A3=1 

630 F1=1:F2=1:F3=1 

640 FOR J=1 TO TT 
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650 IF D(J)>F1 THEN F1=D(J):A1=J 

660 IF E(J)>F2 THEN F2=E(J):A2=J 

670 IF F(J)>F3 THEN FS=F(J):A3=J 

680 NEXT J 

690 REM ** ANNOUNCE RESULT ** 

700 PRINT 

710 CFLG=0 

720 PRINT "THE MOST LIKELY RESULT IS "5A 
$(A1) 

730 IF A2@<>A1 THEN PRINT "THE NEXT MOST 
LIKELY IS "s;A$(A2):CFLG=1 

740 IF A&8<>A2@ AND A3<>A1 THEN PRINT "THE 
NEXT MOST LIKELY IS ";A$(A3):CFLG=2 

750 PRINT 

760 PRINT "IS THE MOST LIKELY RESULT COR 
RECT (Y OR NJ)"; 

770 INPUT FS$ 

780 IF FS<>"Y" AND FS<>"N" THEN 770 

790 IF FS="Y" AND X$<>"" THEN RETURN 
800 IF FS="Y" THEN 980 

810 IF TT=2 AND A1=1 THEN A1=2:G0TO 980 
820 IF TT=2 THEN A1=1:G0TO 980 

830 IF CFLG=0 THEN 890 

840 PRINT "IS MY SECOND CHOICE CORRECT 

(Y OR NJ)"; 

850 INPUT F$ 

860 IF FS="N" THEN 890 

870 IF CFLG=1 THEN A1=A2:G60TO 980 

88O IF CFLG=2 THEN A1=A3:G0TO 980 

890 GOSUB 1500 

900 FOR J=1 TO TT 

910 PRINT Js"- "ZSAS(J) 

920 NEXT J 

930 PRINT 

940 PRINT "WHICH IS THE CORRECT ONE"; 
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950 INPUT A1 

960 IF A1<1 OR A1>TT THEN 950 

970 REM ** EDUCATING RITA **# 
(UPDATE KNOWLEDGE BASE) 

980 FOR J=1 TO DQ 

890 IF B(A1,J)<>0 THEN B(A1,J)=(C(JU)+5*B 

(A1,J))/6 

1000 IF B(A1,J)=0 THEN B[(A1,J)=C[(J) 

1010 B(A1,J)=INT(10*B(A1,J))/10 

1020 NEXT J 

1030 PRINT 

1040 IF U$="" THEN RETURN 

1050 FOR J=1 TO TT 

1060 PRINT:GOSUB 1500 

1070 PRINT A$(J) 

4080 PRINT 

1090 FOR K=1 TO Da 

1100 PRINT ES$(K);B(u,K) 

1110 NEXT K 

1120 NEXT J 

1130 PRINT 

1140 RETURN 


The process begins by setting the elements of D, E and F arrays to 
zero. The D array will hold the ‘most likely’ results, E is used for the 
‘next most likely’ and F for the ‘next most likely’ after E. Next, the 
variable ADD (which was used, you'll recall in the ‘question user’ 
routine to multiply the information entered by the user) is set to .5 
so it can be used in the next loop. 


A pair of nested loops now take control of the program flow. The J 
loop runs from one to TT (the number of outcomes) with the X loop 
running from one to DQ (the number of discrimination questions). 


The next three lines are the most important ones in the program. 
This is where RITA makes its decisions. Line 570 looks for an exact 
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match between the entered answer, C(X), and that element of the B 
array which relates to the possible outcome (the value TT has at 
that point) and the question which C(X) is the answer to (the value 
DQ has at that point). If it finds an exact match, D(J) is incremented 
by one. That is, the chance of the outcome J being the highest value 
— and therefore being the answer selected by RITA — is increased 
by one. You may find your system works best if, say, 1.5 or 2 is 
added at this point. 


Line 580 looks for a close match between a value in the database and 
the entered answer, and if a match within .6 is found, .4 is added to 
E(J). Note that one is added for a perfect match to D(J), and .4 for a 
near match to E(J). Line 590 looks for a ‘not so near’ match, and if it 
finds it, adds .1 to F(J). 


Lines 620 and 630 set the variables Al, A2, A3, F1, F2 and F3 equal 
to zero, before the J loop which runs from lines 640 to 680 is 
activated. As it runs through this loop, RITA sets each F variable 
to the highest value it can find (setting F1 to the highest D(J); F2 to 
the highest E(J) and the value of the highest F(J) is given to F9). 
Each time F1, F2 or F3 is changed, A1, A2 or A3 is changed to equal 
the number of that element which triggered the change (that is, it is 
set equal to the J at that point).This gives RITA a record of which 
element has been found so far to have the highest value. 


Once RITA has been through the loops, Al is set equal to the 
outcome which is most likely to be true (because the most matches 
and/or near matches between the rule base and the user’s answers 
have been given to that outcome). 


Now it is time for RITA to announce its conclusion. Line 710 sets a 
variable called CFLG (for Close result FLaG) to zero. As the A$ 
array holds the names of the outcomes, A$(A1) is the element of 
that array which is the name of the most likely outcome. Line 720 
announces this conclusion. If A2 is not equal to A1 (that is, the ‘next 
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most likely’ is not the same as the ‘most likely’) RITA gives this 
result, and sets CFLG to 1 (which will be used in a moment). If A3 
has a value different from that held by Al and A3, a ‘next most 
likely’ is given, and CFLG is set to 2. 


Line 760 asks if RITA’s conclusion is correct. If the answer is yes 
(that is, F$) is set equal to ““Y”’) and X$ is not equal to ‘“” (which 
happens when RITA moves out of the training mode, and into its 
working state), the rule base is not modified. If RITA is in work 
mode, and the answer is right, then the rule base should not be 
fiddled with. If RITA is still in training, line 800 sends action to the 
routine from 980 which updates the rule base. 


Two Outcomes 


If there are only two outcomes, the variable TT will equal 2. The 
computer gets to line 870 after a ‘‘N”’ has been entered (indicating 
that its answer was wrong). Therefore, as there are only two 
outcomes, the other outcome must be correct. If Al equals 1, then 
RITA gave — incorrectly — outcome 1 as the right answer. Line 810 
changes this so Al is now set to the correct answer (that is, to 2) 
before action goes to 980 to update the rule base. Line 880 does the 
opposite, changing an incorrect 2 intoa 1. 


If there are more than two outcomes, RITA has a bit more of a 
problem. It will not be immediately evident which of the remaining 
outcomes are correct. Line 830 checks the variable CFLG and if it 
finds it is equal to zero, knows that RITA has not indicated any 
‘next most likely’ results, so goes to the routine from 890 through to 
960 which asks the user which answer was correct. 


If RITA has assigned some values to A2 and A3 (the ‘next most 
likelies’) which are different from the value assigned to Al (the most 
likely), the program asks if its ‘second choice’, A$(A2), is the correct 
one. If so, the value of CFLG indicates which answer has been given 
as the second choice (if CFLG equals 1, it is the value of A2; if CFLG 
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equals 2, it’s the value of A3) so RITA knows which answer is right, 
and goes to the routine from 980 armed with this information, in 
order to update the rule base. 


The next routine, from 900 to 960, we have already looked at. This 
prints all the outcome options on the screen, and asks the user to 
indicate which one is the right answer. 


Now RITA can update the rule base. It knows what the right 
answer should be (Al was either selected by it earlier, or Al has 
been set equal to the right answer by the user; in any case, Al now 
indicates the right answer). 


The program goes through the J loop from lines 980 to 1020. When 
it comes across the relevant portion of the database, B(A1, J), it 
checks to see if it is equal to zero. It will be equal to zero if no 
information has yet been recorded at that point (as will always be 
the case at the beginning of a run). If B(A1, J) is not equal to zero 
(line 990) the program multiplies the current value held there by 
five, adds in the value obtained in the current run, then divides the 
lot by six. This ensures that (a) all the information from previous 
runs is not swept away by this answer; (b) the impact of the current 
answer isn’t ignored; and (c) an atypical answer does not throw the 
rule base off too widely (so a single, unusual cat which swims will 
not destroy the program’s ability to recognise as cats animals which 
have all the other elements of catness, but which do not swim like 
our rogue cat). 


If B(A1, J) does equal zero (line 1000) then this element is set equal 
to the only answer the system has come across so far relating to this 
question and outcome, and so it is set equal to Al. Line 1010 gets 
rid of extraneous decimal places. (Without this line, I found RITA 
holding some values to six decimal places, which was absurd, given 
the highly subject nature of some of the original data.) 


Finally, in this lengthy — but most important — section of the 
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program, RITA checks in line 1040 to see if U$ equals ‘‘’’. If it does, 
it means the user indicated at the very start of the run that he or she 
did not want to see the current status of the rule base printed out. In 
this case, it returns to the controlling loop at the start of the 
program for the next series of inputs. If the user has indicated a 
desire to see the current rule base (and this is, to my mind, the most 
interesting part of the whole process), the next section prints it out, 
as you have seen in the sample runs. 
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Chapter Eight 
The Complete 


FUZZY RITA 


Several sections of the RITA program were given in the previous 
chapter. However, it was not listed in full. This chapter makes good 
that omission. In the next chapter, we’ll run RITA through another 
set of weather data, and show a way of treating input data so that it 
falls neatly along the scale from 0 to 1. 


Before that, though, here is the listing: 


10 REM FUZZY RITA 

20 GOSUB 1380:REM INITIALIZE 

30 GOSUB 1160:REM OUTPUT OPTIONS 

40 GOSUB 1250:REM DISCRIMINATION OPTIONS 


50 GOSUB 140:REM QUESTION USER 

60 GOSUB 480:REM MAKE DECISION AND 
UPDATE KNOWLEDGE BASE 

70 PRINT "PRESS <RETURN> TO CONTINUE"; 

80 IF X$<>"" THEN INPUT I$:GO0TO 50 

90 PRINT " TRAINING" 

400 PRINT "OR ANY KEY THEN <RETURN> TO U 

SE RITA"; 

110 INPUT X$:GOTO 50 

1420 END 

130 REM KEES EKREREKSEEKREKREKESEESE EEE 

140 REM QUESTION USER 

150 CLS 
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160 
AN 
170 
180 
190 
200 
210 
220 
HEN 
230 
TO 
240 


250 
260 
270 
280 
2390 


300 
310 
END 
320 
330 


PRINT "HERE ARE THE THE SUBJECTS I C 
DISCRIMINATE BETWEEN:" 

PRINT 

FOR J=1 TO TT 

PRINT " > "SA$(J) 


NEXT J 
GOSUB 1500 
IF X$="" THEN PRINT "THINK OF ONE, T 


PRESS <RETURN>" 

IF X$<>"" THEN PRINT "I AM READY NOW 
DETERMINE WHICH ONE YOU HAVE" 

IF X$="" THEN INPUT J$ 


ADD=,5 

FOR J=1 TO Da 

ADD=ADD+ADD 

6OSUB 1500 

IF X$<>"" AND TT>2 THEN 390:REM 
CHECK IF QUESTION CAN BE JUMPED 
PRINT " ENTER A NUMBER FROM" 

PRINT "4 (TRUE) TO O (FALSE) [$ TO 
RUN]" 

PRINT:PRINT E$(J); 

INPUT H$:IF H$="$" THEN PRINT:PRINT 


"THANK YOU":PRINT: END 


340 
350 
360 
370 
380 
390 


400 
410 
420 


C(JJ=VAL(HS) 
C(J)=ADD*C( VJ) 
NEXT J 
RETURN 
REM ReREEEEESEEEEEKREREEEEEREREE EE 
REM CHECK IF QUESTION CAN BE 
JUMPED 
JUMP=14 
FOR W=1 TO TT 
IF ABS(B(W,J)-B(1,J))>.7 THEN JUMP=0 
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430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


570 
580 


NEXT W 

IF JUMP=0 THEN 300 

C( JUMP)=B(W,J) 

GOTO 360 

REM REE KKEESEEESESKEKEEEEEEEEESSE EE 

REM MAKE DECISION 

FOR J=1 TO TT 

D(JJ=O:E(J)=0:F(J)=0 

NEXT J 

ADD=,5 

FOR J=1 TO TT 

ADD=ADD+ADD 

FOR X=1 TO DQ 

REM PLAY WITH VALUES IN NEXT THREE 
LINES FOR MOST EFFICIENT RESULTS 

IF C(X)=B(J,X) THEN D(J)=D(J) +1 

IF ABS(C(X)-B(J,X))<.6*ADD THEN E(J) 


=E(J)+.4 


590 


IF ABS(C(X)-B(J,X))<1.2*ADD THEN F(J 


J=F(J)+.1 


600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


NEXT X 

NEXT J 

A1=1:A2=1:A3=1 
F1=1:F2=1:F3=1 

FOR J=1 TO TT 

IF D(J)>F1 THEN F1=D(J)sA1=d 
IF E(J)>F2 THEN F2=E(J) sA2=d 
IF F(J)>F3 THEN FS=F[(J):AS=d 
NEXT J 

REM ** ANNOUNCE RESULT ** 
PRINT 

CFLG=0 

PRINT "THE MOST LIKELY RESULT IS "SA 


$(A1) 


86 


730 
LIKE 
740 
NEX 
750 
760 
RECT 
770 
780 
730 
800 
810 
820 
830 
840 


850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 


980 
990 
(A1, 
1000 
1010 


IF A2<>A1 THEN PRINT "THE NEXT MOST 

LY IS "s;A$(A2):CFLG=1 

IF A3<>A2@ AND A3<>A1 THEN PRINT "THE 

T MOST LIKELY IS "sA$(A3):CFLG=2 

PRINT 

PRINT "IS THE MOST LIKELY RESULT COR 
(Y OR NJ)"; 

INPUT FS$ 

IF FS<>"Y" AND FS<>"N" THEN 770 

IF FS="Y¥" AND X$<>"" THEN RETURN 

IF FS="Y" THEN 980 

IF TT=2 AND A1=1 THEN A1=2:GO0TO 980 

IF TT=2 THEN A1=1:G0TO 980 

IF CFLG=0 THEN 890 

PRINT "IS MY SECOND CHOICE CORRECT 

(Y OR NJ)"; 

INPUT F$ 

IF FS="N" THEN 890 

IF CFLG=1 THEN A1=A2:GOTO 980 

IF CFLG=2 THEN A1=A3:GO0TO 980 

GOSUB 1500 

FOR J=1 TO TT 

PRINT J3"- "sA$(J) 

NEXT J 

PRINT 

PRINT "WHICH IS THE CORRECT ONE"; 

INPUT A414 

IF A1<1 OR A1>TT THEN 950 

REM ** EDUCATING RITA ** 

(UPDATE KNOWLEDGE BASE) 

FOR J=1 TO DQ 

IF B(A1,J)<>0 THEN B(A1,J)=(C(J)+5*B 

J)1/6 

IF B(A1,J)=0 THEN B(A1,J)=C[(J) 
B(A1,JJ)=INT(10*B(A1,J))/10 
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1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


1160 
1170 
1180 
11930 
1200 
T" 

1210 
1220 


NEXT J 

PRINT 

IF US="" THEN RETURN 
FOR J=1 TO TT 
PRINT:GOSUB 1500 
PRINT A$(J) 

PRINT 

FOR K=1 TO Da 
PRINT E$(K);B(u,K) 
NEXT K 

NEXT J 

PRINT 


RETURN 
REM *#RRKEEREREEREEREEE EEE EE EE 


REM OUTPUT OPTIONS 

TT=0 

TT=TT+1 

GOSUB 1500 

PRINT “ENTER OUTPUT OPTION NUMBER"T 
(PRESS <RETURN> TO END)" 

INPUT A$(TT) 

IF AS(TT)=""_ OR TT=51 THEN TT=TT-1:3 


RETURN 


1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 


GOTO 1180 

REM FFE EERE EEEEE EEE EES ED 
REM DISCRIMINATION QUESTIONS 
CLS 

FOR J=1 TO TT 

PRINT AS$(J) 

NEXT J 

Da=0 

Da=DQa+1 

GOSUB 1500 
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1330 PRINT " ENTER QUESTION NUMBER"DQ 
" (PRESS <RETURN> TO END)" 

1340 INPUT ES$(DQ) 

1350 IF ES$(DQJ="" OR DQ=541 THEN DQ=DQ-1: 

RETURN 

1360 GOTO 1310 

1370 REM *# FH REET EEEEEEEEE EEE EE 

1380 REM INITIALIZATION 

1390 CLS 

1400 REM REDUCE ARRAYS IN NEXT LINE IN 

ACCORDANCE WITH YOUR NEEDS 

1410 DIM A$(50),B(50,50),C(50),0(50),E$( 

50),F(50),E(50) 

1420 X$="" 

1430 PRINT "PRESS ANY KEY, THEN <RETURND 
IF You" 

1440 PRINT “WANT TO SEE THE UPDATED KNOW 
LEDGE BASE" 

1450 PRINT " AFTER EACH RUN; JUST P 

RESS" 

1460 PRINT " <RETURN> IF YOU DON! 

TT" 

1470 INPUT U$ 

1480 CLS 

1490 RETURN 

1500 PRINT “---------------------------- 


1510 RETURN 
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Chapter Nine 
The Bureau of 
Meteorology 


In this chapter, we’ll get RITA to become an expert on December 
weather in Melbourne, Australia. I’ll explain the steps I followed to 
create this expert system in some detail. You should then have a 
pretty good idea of how to use RITA to create real expert systems 
of your own. 


Firstly, the data has to be put into a form which is suitable for 
RITA to digest. We said that RITA expects inputs in the range zero 
to one, with zero being false and one being true, with intermediate 
values representing degrees of truth. You don’t have to stick with 
zero to one. RITA is extremely tolerant. However, it is simpler to 
set one standard and stick with it whenever you are developing an 
expert system from the bare bones of RITA, than to have to try and 
work out later just what scale you were using. 


The raw data we’re giving RITA in this exercise comes from the 
Melbourne weather conditions for December 1984. We’ll give the 
computer the daily barometric reading at 9 am, the minimum and 
maximum temperatures and the relative humidity at 3 pm. From 
these figures, RITA has to tell us whether it is going to rain the 
following day or not. 


The Commonwealth Bureau of Meteorology (who provided the 
figures) pointed out that the month we are studying contained the 
highest number of rain days (14) since 1976. This is good, as it 


means that about half the days in the month were wet, rather than 
very, very few of them being wet as was the case in 1982. A month 
which was almost totally dry would have given RITA little 
challenge, and would have proved little. 


Here’s the raw data for the first few days: 


DATE BAROM TEMP. TEMP. RH% RAIN- 


MIN. MIN. FALL 
1 1011.6 11.0 25.5 31 0 
2 1006.7 12.6 27.6 29 0 
3 1012.4 10.8 16.5 52 2.6 


You can see that the numbers are very different in size, with the 
barometric readings around 1000, the temperatures between 10 and 
30, the relative humidity percentage presumably running from zero 
to 100, and the rainfall from zero to infinity. How do we turn these 
into neat little figures which will lie upon our scale from zero to one? 


It is very simple, and your computer will do nearly all the work for 
you. Enter and run the next program, and I’ll explain it to you: 


10 REM SCALING 

20 DIM X(50),Z(50) 

30 CLS 

40 INPUT "HIGHEST VALUE";A 
50 INPUT "LOWEST VALUE";B 
60 A=A+,.001 

70 B=B-.001 

80 C=(A-B)/50 

90 X(0)=B 

100 FOR J=1 TO 50 

110 X(J)=X(JU-1)+C 

120 Z(J)=J/50 
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130 PRINT Z(J),X(J) 

140 NEXT J 

150 DIFF=(X(2)-xX(1))/2 

160 COUNT=0 

170 COUNT=COUNT+1 

180 PRINT "ENTER VALUE"; COUNT 
190 INPUT Qs 

200 IF as="" THEN END 

210 Q=VAL(Q$) 

220 IF Q<B OR Q>A THEN 180 
230 FOR J=0 TO 50 

240 IF ABS(Q-X(J))<DIFF THEN LPRINT COUN 
T"-"Z7( 5) 

250 NEXT J 

260 GOTO 170 


You run the program and follow the prompts. You have a list of 
figures to be entered, such as the barometric ones for our 
forecasting. The prompt reads HIGHEST VALUE? so you look 
through the barometric data looking for the biggest number in the 
list. In my list it is 1018.1, so this is entered into the computer. The 
next prompt is LOWEST VALUE? and a search for this finds 994.2, 
which is also entered. 


Now the computer prompts you one by one to enter the data you 
need, giving you the number (the variable COUNT in line 180) of the 
item in your list, just in case you get lost. You type in the first figure 
(1011.6) on our list, and line 240 prints out (in this case, to the 
printer; just leave the L off LPRINT if you want it to appear on 
your screen) the value .72 which is the equivalent on the scale zero to 
one, of 1011.6 on the far less convenient scale of 994.2 to 1018.1. 
You go through the whole month’s data, typing in each of the 
figures and taking note (or allowing the computer to do it for you) of 
the results, so they can be entered into RITA in due course. 
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The same process is followed for the minimum temperatures, the 
maximum ones, and the relative humidity. Now we are just about to 
start training RITA on the vagaries of Australian weather. First, 
though, I made a couple of slight changes to the program. You’ll 
recall I said that the RITA program as given was only a raw 
framework, which could (and should) be modified to give the most 
effective results in the field in which you want your expertise 
exercised. 


As the input in this program is given to two decimal places, it 
seemed absurb to have line 1010 stripping it down to one decimal 
place, and probably losing vital information in the process. To 
overcome this, line 1010 was changed to the following: 


1010 B(A1,J)=INT(100*B(A1,J5))/100 


Line 570, which looks for exact matches between the current run’s 
input and the database, was modified to look for close matches, 
rather than exact ones, as follows: 


570 IF ABS(C(X)-B(J,X))<.2*ADD THEN D(J) 
=D(J)+1 


Educating RITA 


I was now ready to put RITA through its paces. I began by telling it 
that RAIN TOMORROW and DRY TOMORROW were the 
outcome options, and decided which discrimination questions would 
be asked: 


ENTER QUESTION NUMBER 1 
(PRESS <RETURN> TO END) 
? BAROMETER 
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www ew ew ew ew ew ee ew ew we ee ew ee ee ew ew em ew ew ew ee em em em em eee 


ENTER QUESTION NUMBER 2 

(PRESS <RETURN> TO END) 
? MINIMUM TEMPERATURE 

ENTER QUESTION NUMBER 3 

(PRESS <RETURN> TO END) 
? MAXIMUM TEMPERATURE 

ENTER QUESTION NUMBER 4 

(PRESS <RETURN> TO END) 
? RELATIVE HUMIDITY 


After four days of input and correction, RITA’s rule base looked like 
this: 


RAIN TOMORROW 


BAROMETER .6 

MINIMUM TEMPERATURE .7 
MAXIMUM TEMPERATURE 2.46 
RELATIVE HUMIDITY 2.15 


DRY TOMORROW 


BAROMETER .72 

MINIMUM TEMPERATURE .48 
MAXIMUM TEMPERATURE 2.88 
RELATIVE HUMIDITY 1.12 
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The most noticeable rule RITA has created related to relative 
humidity. If it is low, then the next day was likely to be dry. This 
seemed a very reasonable rule. RITA also appeared to think low 
minimum temperatures and high barometric readings also pointed 
towards a dry day. 


I ran the program for four more days worth of data. After this, 
RITA’s rule base had changed to the following: 


RAIN TOMORROW 


BAROMETER .6 

MINIMUM TEMPERATURE ,.7 
MAXIMUM TEMPERATURE 2.46 
RELATIVE HUMIDITY 2,15 


DRY TOMORROW 


BAROMETER .84 

MINIMUM TEMPERATURE .55 
MAXIMUM TEMPERATURE 2.12 
RELATIVE HUMIDITY 2.36 


Although RITA has stuck with its previous opinions on barometer 
readings and minimum temperatures, it has changed its mind 
completely on relative humidity. Patiently, I trudged on, entering 
more data. By the end of month, RITA had settled on this rule base: 


RAIN TOMORROW 


BAROMETER .43 
MINIMUM TEMPERATURE 1 
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MAXIMUM TEMPERATURE 2.238 
RELATIVE HUMIDITY 3.74 


DRY TOMORROW 


BAROMETER .75 

MINIMUM TEMPERATURE .95 
MAXIMUM TEMPERATURE 2.86 
RELATIVE HUMIDITY 2,15 


A low barometric reading, a high minimum temperature and a low 
maximum one, along with a high relative humidity suggested RAIN 
TOMORROW, while the opposite conditions pointed to DRY 
TOMORROW. These ideas did not seem unreasonable. But how did 
they work in practice? 


In the month in question, ignoring day one (as RITA’s answer to 
that is based entirely on the order in which the outcome options 
were entered), there were 29 days we could check. RITA predicted 
the presence or absence of rain correctly on 18 of those days, which 
seemed pretty good. This impression was strengthened by 
examining the figures, which showed RITA predicted a day on 
which only 0.2mm of rain fell would be dry, and that a few wet days 
in the middle of a spell of dry ones were called correctly. 


To see if RITA would continue to learn, I ran through the month 
again. At the end of the second run, RITA had evolved this rule 
base: 


RAIN TOMORROW 


BAROMETER .43 
MINIMUM TEMPERATURE 1,01 
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MAXIMUM TEMPERATURE 2,13 
RELATIVE HUMIDITY 3.97 


DRY TOMORROW 


BAROMETER .75 

MINIMUM TEMPERATURE .98 
MAXIMUM TEMPERATURE 2.58 
RELATIVE HUMIDITY 2,22 


You can see that RITA has basically reinforced its earlier position, 
adding a little more to its high value for relative humidity when 
looking for a wet day. The second month’s performance was an 
improvement on the first run. The same 29 days produced 19 correct 
predictions, although it still said the 0.2mm day would be dry. the 
program also correctly predicted that day two of the month would 
be dry (a feat the first run had no way of doing), bringing the second 
run’s sucess rate to 20 out of 30. 


Here is how RITA performed, with an X indicating an error: 


Day Weather Predicted Predicted 
First run Second run 


2 DRY - DRY 
3 WET DRY X WET 
4 WET DRY X WET 
5 WET WET WET 
6 DRY DRY WET X 
7 DRY WET X DRY 
8 DRY DRY DRY 
9 DRY DRY DRY 
10 DRY DRY DRY 
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11 WET DRY X DRY X 


12 WET WET WET 
13 DRY WET X WET X 
14 WET WET WET 
15 WET DRY X DRY X 
16 WET WET WET 
17 DRY DRY DRY 
18 WET DRY X DRY X 
19 DRY WET X WET X 
20 WET DRY X DRY X 
21 WET DRY X DRY X 
22 DRY DRY DRY 
23 DRY DRY DRY 
24 DRY DRY DRY 
25 WET WET DRY xX 
26 WET WET WET 
el WET DRY X DRY xX 
28 DRY DRY DRY 
29 DRY DRY DRY 
30 DRY DRY DRY 


A chart like this would be very useful if you were trying to produce a 
real expert system, as it highlights where errors were made. For 
example, in both runs the days from the 18th to the 21st were called 
wrongly. It would be worth finding out what the values were 
at that point, so see if a little massaging of a few parts of the 
discrimination process was called for. 


Now, you might like to get some day by day statistics of your own 
town, or capital city, and see how well RITA peforms on them. 


New Inputs 
If you like, you can modify the user response section of the program 


so that instead of entering a number from zero to one, the user 
simply selects a word from a menu, which is then translated 
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internally into a suitable number for the system. 


Such a menu (with the number which RITA creates from the answer 
given after each word) could be as follows: 


SELECT THE OPTION WHICH IS TRUE 
FOR THIS QUESTION : 


A - ALWAYS (1) 
B - MOST OF THE TIME (.8) 
C - ABOUT HALF OF THE TIME (.6) 
D = SOME OF THE TIME (.4) 
E - RARELY (.2) 
F - NEVER (0) 


You may well find this makes your domain-specific RITA not only 
easier to use, but more effective, as it is likely to extract slightly 
more consistent answers from the user than it would if an estimate 
of the truth of the answer to a discrimination question had to be 
made. 


Chapter Ten 
Logic and Programming 


Getting a machine to behave logically is a vital step along the road 
to eliciting the kind of behavior from a machine which could be 
called genuinely intelligent. Those attempting to program logical 
behaviour into a machine have a long history of the study of logic to 
draw upon. 


Aristotle’s famous syllogism. . . 


ALL MEN ARE MORTAL 
ARISTOTLE IS A MAN 


THEREFORE ARISTOTLE IS MORTAL 


. introduced one fundamental logical concept, ‘this conclusions 
follows from this/these premise(s)’. 


Unfortunately, computers are not automatically drawn along this 
kind of line of thinking by the kind of programming languages in 
most common use at the moment. Most computer languages in 
current use, including BASIC, are imperative. That is, they are 
constructed almost completely of commands which are to be obeyed 
by the computer (LET X=95:LET Y=2*X:PRINT Y). An 
imperative language is not the best one in which to write programs 
to mimic logical thinking. 


Declarative Languages 


For this we need to turn to declarative programming languages. In 
these, programs are constructed of definitions, which describe 
relationships between elements the computer is manipulating. 
When an imperative program is executed, the computer follows a 
number of orders, making decisions of the IF/THEN type, and then 
outputs the results of its processing. When executing a declarative 
program, the computer makes use of the definitions to satisfy a 
queried link between entered elements. The output of such a 
program is the link which it discovers. 


The majority of computer languages currently in use, such as 
BASIC and FORTRAN, work very well when the task to be carried 
out is a ‘linear’ one, when the approach to the problem demands a 
policeman (the central processing unit) to direct the ‘thinking 
traffic’ down a well-defined path. But such approaches are not 
suitable for the demands of artificial intelligence and expert systems 
where a number of elements need to be able to interact 
simultaneously and freely. 


The work being done by such bodies as Japan’s Institute for New 
Generation Computer Technology and the UK’s Alvey Programme 
are drawing away from the straight-line von Neumann path which 
computer problem-solving has been following since the 1940s. The 
fifth-generation computer, instead of being a single, sequentially 
operating processor, looks like being a number of processors 
working in parallel, each engaged on their separate (but related, and 
linked) tasks. Each of these tasks is somewhat like a subroutine to a 
main program, except that instead of being called one by one, and 
only at particular times in a program’s execution, the ‘sub- 
processors’ are all grinding away at their work from time to time, 
constantly ‘reporting in’ and reacting to the output of the other 
processors. 
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The work of the Alvey and Japanese fifth-generation teams has 
concentrated, in part, on the use of descriptive programming 
languages such as LISP (LIst Processing) and its derivatives, such 
as PROLOG (PROgramming in LOGic) and Logo. We will be 
examining LISP and PROLOG (along with two somewhat simpler 
other languages — EASLE and HASTE — which I developed as 
introductions to the use of descriptive or declarative languages) in 
this section, and by the time you come to the end of it you’ll have 
versions of each language to run on your own computer. 


LISP 


LISP can be traced back to 1956, when the first major seminar on 
artificial intelligence was held at Dartmouth College. It was 
organised by four men, including a young assistant mathematics 
professor, John McCarthy. The four put forward a proposal to the 
Rockefeller Foundation that a conference be held on the premise 
that any features of intelligence could be described with sufficient 
exactness to enable a machine to simulate it (McCorduck, 1979). 


One of the papers at the conference, delivered by Herbert Simon, was 
about a somewhat inelegant list-processing language he had 
developed called IPL (Information Processing Language). Chris 
Bidmead, writing in Practical Computing magazine in October, 
1984 (p. 129), points out that IPL and the lecture were the seed 
which eventually gave birth to LISP. “‘It’s (IPL’s) low-level pseudo 
code and assembler-like syntax suggested to him (McCarthy) the 
idea of an algebraic list-processing language...” 


McCarthy used Simon’s ideas (along with those of several others 
working in the field, including Alan Newell, J. C. Shaw and IBM’s 
Gelernter) to develop LISP. He has a version up and and running by 
1958 (LISP 1) and from it produced LISP 1.5 which is the real 
forerunner of the majority of LISPs in use today, including (of 
course) the program SSLISP towards the end of this section of the 
book. 
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LISP begins with two data types — atoms and lists. Lists are made 
up of atoms and/or other lists. LISP does not really use programs 
as such, but instead evaluates lists. Data and program are thus, toa 
significant extent, indistinguishable in LISP. You use a LISP 
program by asking it to scan its list database for a list (or atom) 
which satisfies certain conditions. 


PROLOG 


PROLOG, LISP’s most vigorous offspring, makes considerable use 
of the lack of distinction between data and program. To a significant 
extent, a PROLOG program is made up of a database of lists which 
can be interrogated. 


Alain Colmerauer invented the language in the early 1970s, and it 
was first implemented in Marseilles in 1972 by Colmerauer and 
Roussell, as an interpreter written in Algol-W. It was rewritten the 
following year in Fortran. The new version was considerably more 
efficient and quickly spread through much of the academic world in 
Europe and the US. Universities and artificial intelligence 
researchers gradually developed their own versions of the language 
in the decade which followed its first implementation. Edinburgh 
University’s DEC-10 PROLOG, which was the first to incorporate a 
compiler, is generally regarded as the ‘standard’ implementation of 
the language. 


PROLOG’s popularity has increased quite dramatically since the 
Japanese announced that use of the language would be one of the 
principle elements in their fifth-generation artificial intelligence 
project. 


micro-PROLOG 
Implementations of PROLOG are now available for many 


microcomputers. The first of these, micro-PROLOG, was written by 
Frank G McCabe and Keith L Clark, at Imperial College, London, in 
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the Logic Programming Unit. It appeared in 1982, in Z80 assembler 
for CP/M 2.2 systems. It is now available for many computers 
including the IBM PC under MS-DOS or CP/M-86. Micro-PROLOG 
has a much simplified syntax compared with such implementations 
as the DEC-10 at Edinburgh. However, the language can easily be 
extended by the user, and is sufficiently powerful to enable useful 
work to be done with it. 


Micro-PROLOG includes a front-end program called SIMPLE, 
which is more friendly to work with than the LISP-like list form 
which the program itself uses. In due course, I'll be given you a 
program which emulates SIMPLE in micro-PROLOG so you can 
learn a certain amount of the language without having to go to the 
expense of buying it. Then you'll be able to decide whether or not 
your interest in PROLOG is strong enough to justify the purchase 
of a compiler for the language. 


A PROLOG program is made up of a database of facts and rules 
which you can query. To ‘break you into’ declarative or descriptive 
languages gently, I’ve invented a primitive language of my own. 
You need only enter a relatively short program in order to get this 
language running on your computer. Skills you gain with this first 
language — given in the next chapter — can be applied in our 
version of SIMPLE which we'll be studying in due course. 


Chapter Eleven 
Thinking in HASTE 


My language is called HASTE (for HArtnell’s Simple declarative 
TonguE). You build up a database in HASTE by entering 
sentences which contain an asterisk, which effectively breaks the 
sentences into subjects and predicates. The computer accepts these 
sentences, and from them can answer questions and reach 
conclusions. This is easy to understand if you look at the following 
sample run of HASTE. First of all, we tell the computer a number of 


facts: 


JOHN*IS A MAN 


PETER*IS A MAN 
MARY*IS A WOMAN 
PETER*CLIMBS TREES 
MARY*CLIMBS TREES 


PETER*IS EIGHT FEET TALL 


VVVV VV VV VY VY VY VY VY 


MARY*IS NINE FEET TALL 
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PETER*IS AFRAID OF THE WOLF 
MARY*IS AFRAID OF THE WOLF 


A STITCH*IN TIME SAVES NINE 
A PENNY SAVED*IS A PENNY EARNED 


PETER*IS FOURTEEN YEARS OLD 
PETER*IS A COMPUTER EXPERT 
MARY*IS A COMPUTER EXPERT 


Notice where the asterisk falls within the sentence, directly 
preceding the verb, and taking the place of the space which would 
normally appear in that position in the sentence. 


To interrogate the database, you enter a question mark (?) once the 
> prompt appears. If you want to check on whether or not a 
particular fact is held by HASTE, you simply follow the question 
mark with the statement you want to check. The program replies 
with TRUE or FALSE and then the line ENDOF ANSWER to 
show that the information it has printed out is all it can give you in 
response to that particular query. 


Here I am checene to see if HASTE has learned about certain 
subjects: 


> ?PETER*IS A MAN 
TRUE 
> END OF ANSWER < 
> ?PETER*IS AFRAID OF THE WOLF 
TRUE 
> END OF ANSWER < 


If you want to know what HASTE knows about a particular 
subject, you substitute a / in your query line for the information you 
want it to supply. Here, HASTE reveals what it knows about 
PETER (as the question, in effect, is ‘Give me all the predicates that 
apply to the subject PETER): 


> ?PETER*/ 
IS AFRAID OF THE WOLF 
Is A MAN 
CLIMBS TREES 
IS EIGHT FEET TALL 
IS FOURTEEN YEARS OLD 
Is A COMPUTER EXPERT 
> END OF ANSWER < 


You can also supply the predicate part of the statement, and 
HASTE will supply all the subjects that have that predicate: 


> ?/*IS AFRAID OF THE WOLF 
PETER 
MARY 
> END OF ANSWER < 
> ?A STITCH*/ 
IN TIME SAVES NINE 
> END OF ANSWER < 


I hope you are already getting an idea from this limited language 
how declarative languages which can be interrogated, can act as 
expert systems of quite immense power. 


More useful than the above forms of questioning is the one in which 
the computer has to check on the truth of two statements, and 
supply information which satisfies both those conditions. The next 
question, which uses an AND, is asking HASTE ‘What subject(s) is 
afraid of the wolf AND is a man?’: 


> ?/*1I1S AFRAID OF THE WOLF AND /*IS A MA 
N 
PETER 

> END OF ANSWER < 


Or, ‘What subject(s) climbs trees AND is a computer expert?’: 


> ?/*IS AFRAID OF THE WOLF AND /*IS A CO 
MPUTER EXPERT 
PETER 
MARY 
> END OF ANSWER < 
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For some questions, no answer is the only reply: 


> ?/*CLIMBS TREES AND /*IS A PENNY EARNE 
D 
> END OF ANSWER < 


If HASTE was, let us say, a medical expert system, it could be 
asked ‘What subject (disease) causes red spots and appears in 
children under the age of four?’. The information the HASTE expert 
system would use would have been entered in straightforward 
English (apart from the asterisk). This is one of the real advantages 
of declarative languages. They allow natural language (within 
restrictions, of course) input and can reply in a fairly 
straightforward manner. 


If you wish to find out everything which your current HASTE 
system knows, you enter a / on each side of the asterisk: 


> ?/*/ 
JOHN*IS A MAN 
PETER*IS AFRAID OF THE WOLF 
MARY*IS AFRAID OF THE WOLF 
PETER*IS A MAN 
MARY*IS A WOMAN 
PETER*CLIMBS TREES 
MARY*CLIMBS TREES 
A STITCH*IN TIME SAVES NINE 
A PENNY SAVED*IS A PENNY EARNED 
PETER*IS EIGHT FEET TALL 
PETER*IS FOURTEEN YEARS OLD 
PETER*IS A COMPUTER EXPERT 
MARY*IS A COMPUTER EXPERT 
MARY*IS NINE FEET TALL 

> END OF ANSWER < 
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Here are the results of a few more queries: 


> PMARY*/ 
IS AFRAID OF THE WOLF 
IS A WOMAN 
CLIMBS TREES 
IS A COMPUTER EXPERT 
IS NINE FEET TALL 

> END OF ANSWER < 
> PJOHN*/ 
IS A MAN 

> END OF ANSWER < 
> PPETER*/ 
IS AFRAID OF THE WOLF 
IS A MAN 
CLIMBS TREES 
IS EIGHT FEET TALL 
IS FOURTEEN YEARS OLD 
IS A COMPUTER EXPERT 

> END OF ANSWER < 


Before I give you the HASTE listing, so you can experiment with 
its power yourself, here’s a summary of the operating rules: 


1— All input is in sentence form, with an asterisk coming 
between the subject and the predicate of the sentence 


2— You interrogate the database by preceding your input 
with a question mark 


3— To check if HASTE knows a fact, you enter the fact, 
preceded by a question mark. It will reply TRUE (it knows 
it) or FALSE (it doesn’t) 


4—A slash (/) is substituted in other queries, in the position 
within the statement you want the program to answer. 
This means that ?/*FATHER OF TOM will return 
something like JOHN IS; ?/*/ will print out the whole 
database; and ?JOHN IS*/ will return something like 
FATHER OF TOM 


5 — The database can also reply to AND questions, supplying 
answers for which both statements are true, so ?7JOHN/* 
AND FATHER ’* will return all information which is true 
for both JOHN and FATHER 


As you'll see by examining the listing, HASTE works its magic by 
simply manipulating the elements of a couple of string arrays. You 
can store up to 255 facts in the database. Here’s the listing: 


10 REM HASTE 

20 DIM A$(255),8$(255) 

30 F=0:CLS 

40 REM *#### #84488 

50 FLAG=0 

60 INPUT "> ",D$ 

70 IF D$="" THEN END 

80 IF LEFT$(D$,1)="?" THEN 200 
90 E=0 

100 E=E+1 

110 IF MID$(D$,E,1)="*" THEN 140 
120 IF E<LEN(D$) THEN 100 

130 PRINT "INVALID ENTRY":GOTO 50 
140 IF FLAG=3 THEN RETURN 

150 F=F+1:IF F=256 THEN END 

160 AS(FJ=LEFT$(D$,E-1) 

170 BS(F)=MID$(D$,E+1) 
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180 GOTO 50 

190 REM *#**#*#*###4% 

200 REM INTERROGATE 

210 FLAG=4:TRUE=0 

220 IF RIGHT$(D$,1)="/" THEN FLAG=3 

230 FOR J=1 TO LEN(D$)-5 

240 IF MID$(D0$,J,5)=" AND " THEN FLAG=5: 
TRUE=J 

250 NEXT J 

260 IF FLAG=5 THEN 410 

270 IF LEFT$(D$,3)="?/*" THEN FLAG=1 

280 IF LEFTS(D$,4)="?/*/" THEN FLAG=2 
290 IF FLAG=3 THEN GOSUB S0O:FS=MID$(D$,2 
»E-2) 

300 IF FLAG=1 THEN FS=MID$(D$,4) 

310 E=0 

320 E=E+1 

330 IF AS$(E)="" AND FLAG=4 AND TRUE=0 TH 
EN PRINT "FALSE" 

340 IF AS(E)J=""" THEN 520 

350 IF FLAG=4 AND "?"+A$S(EJ)+"*"+BS(EJ)=D$ 
THEN PRINT "TRUE": TRUE=1 

360 IF FLAG=3 AND FS=A$(E) THEN PRINT B$ 
(E) 

370 IF FLAG=2 THEN PRINT AS(E)3;"*"sBS(E) 


380 IF FLAG=1 AND F$S=B$(E) THEN PRINT A$ 
(E) 

390 IF E<255 THEN 38320 

400 REM **##* #44848 

410 FS=MID$(D$,4,TRUE-4):G$=MID$(D$,TRUE 
+7) 

420 E=0 

430 E=E+1 

440 IF A$(E)="" THEN 520 
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450 IF BS(EJ=F$ THEN 470 

460 IF E<@55 THEN 430 

470 H=0 

480 H=H+1 

490 IF BS(H)="" THEN 460 

500 IF B$(H)=G$ AND A$(EJ=A$(H) THEN PRI 
NT AS$(E) 

510 IF H<255 THEN 480 

520 PRINT TAB(5);" > END OF ANSWER <" 
530 GOTO 50 


112 


Chapter Twelve 
A Taste of PROLOG 


Now that you’ve had some experience of working with a declarative 
language, we can move onto PROLOG. The program I’m going to 
give you will allow your computer to run a restricted version of the 
PROLOG front-end program, SIMPLE. I’ve called it PROLOG-A 
(which stands for PROLOG-Almost). 


Although you should be able to learn a fair amount of PROLOG just 
from reading this next section, and from running the program, it is 
not intended to be a real tutorial on the language. However, you'll 
find that if you get a book on PROLOG or micro-PROLOG, you can 
use the program given here, in conjunction with your book, to learn 
the basics of operating the SIMPLE front-end of the language. 


Before we examine PROLOG-A, here is a sample PROLOG program 
running on a complete compiler (material within the /*...*/ is a 
comment, like a REM statement in a BASIC program): 


/* a night/day database */ 


owl is-a nocturnal 
bat is-a nocturnal 
cat is-a diurnal 
dog is-a diurnal 


113 


/* rules */ 


x is-a day-sleeper if x is-a nocturnal 
x is-a night-sleeper if y is-a diurnal 


x fights y if x is-a day-sleeper 
and y is-a night-sleeper 


As you can see, we’ve set up some initial facts, using the form is-a. 
Then, we’ve given the computer some rules which relate those facts. 
We can now query the computer like this: 


does(owl is-a day-sleeper) 
YES 


which((xy): x fights y) 
answer is(cat owl) 
answer is(cat bat) 
answer is(dog owl) 
answer is(dog bat) 


You can see here that the computer is using the rules it has been 
given to answer questions. This is, fundamentally, what an expert 
system does. PROLOG can quickly be recognised as a language 
which seems purpose-built for the construction of expert systems. 


Even more usefully, a PROLOG program can be queried to explain 
how it reaches its conclusions. 


does(cat fights owl) 
YES 


why(cat fights owl) 
(cat fights owl) shown by 
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(cat is-a night-sleeper) shown by 
(cat is-a diurnal) and 
(diurnal is-a night-sleeper) 
(owl is-a day-sleeper) shown by 
(owl is-a nocturnal) and 
(nocturnal is a day-sleeper) 


(night-sleeper fights day-sleeper) given 


You can see that PROLOG is far more complex than HASTE, 
although they are definitely members of the same family of 
languages. I hope your experiences with HASTE have made it 
easier for you to understand what is happening in the PROLOG 
samples you’ve just looked at. 


Now we can look at how PROLOG-A works. 


The Martian Way 


We start, as we did with HASTE, by entering facts into the 
database. In PROLOG-A, the prompt is &., with the . indicating 
that the computer is scanning the keyboard, waiting for input. We 
get the program to add facts to its database with a very sensible 
command, ADD. Whereas in HASTE, the entered material was 
made up of two parts, a subject and a predicate (which included a 
verb), in PROLOG-A the entered material is in three parts: 


1 — asubject (such as BRADLEY) 
2 — arelationship (such as IS-THE-FATHER-OF) 
3 — another subject or fact (such as ROBERT) 
As you can see, from 2 above, the words in each section are linked by 


hyphens. The sections are separated from each other by spaces. The 
spaces and hyphens are very important. 
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Let’s tell the program a thing or two: 


&.ADD(ZAPPA IS-A MARTIAN) 
&.ADD(ZERON IS-A MARTIAN) 
&.ADD(EATEE IS-A SUPPLEMENT) 
&.ADD(DRINKEE IS-A LIQUID) 
&.ADD(LIQUIDDO IS-A BEVERAGE) 
&.ADD(LASERGUN IS-A WEAPON) 


&.ADD(YYPRUS IS-A MARTIAN) 


We can find out what it knows with the command LIST ALL which 
simply tells PROLOG to list out all the facts held in its database: 


& LIST ALL 


ZAPPA IS-A MARTIAN 
ZERON IS-A MARTIAN 
EATEE IS-A SUPPLEMENT 
DRINKEE IS-A LIQUID 
LIQUIDDO IS-A BEVERAGE 
LASERGUN IS-A WEAPON 
YYPRUS IS-A MARTIAN 


Now we come to the really exciting part of PROLOG, where we see a 
skill which HASTE never had. This is the ability to combine 
different inputs by itself to add new information to its database. So 
far, we’ve just given it facts, which it has dutifully filed away. We 
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will now teach it some rules which relate to some of those facts. 


Here’s the first rule: 


&.ADD(X IS NOURISHING IF X IS-A BEVERAGE 
) 

COMPILING RULE 
> LIQUIDDO IS NOURISHING 


This tells it that an object (X is a variable in PROLOG) IS 
NOURISHING if that object IS-A BEVERAGE. The program tells 
you that it is compiling that rule, and prints out anything it has 
added to the database as a result of applying that rule to the facts it 
knows. We give it a second rule: 


&.ADD(X IS NOURISHING IF X IS-A SUPPLEME 
NT) 

COMPILING RULE 
> EATEE IS NOURISHING 


As I said in the last paragraph, X is a variable in PROLOG. Micro- 
PROLOG uses X, Y, Z, x, y and z as variables, but we’ll be sticking 
to X and Y. Variables are empty boxes, into which suitable contents 
can be placed. You cannot use a variable name as a name in the 
database (so we can’t call one of our Martians X, or the program 
could become very confused). 


Next we’ll ask PROLOG-A to tell us everything it knows which 
involves the relationship IS (which is, you should note, quite 
separate from the relationship IS-A): 


& LIST IS 
LIQUIDDO IS NOURISHING 
EATEE IS NOURISHING 
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And so we continue, allowing PROLOG-A to build up its store of 
facts about the universe in which it will be an expert: 


&.ADD(X SPEAKS MARTIANESE IF X IS-A MART 
IAN) 
COMPILING RULE 
> ZAPPA SPEAKS MARTIANESE 
> ZERON SPEAKS MARTIANESE 
> YYPRUS SPEAKS MARTIANESE 


PROLOG also has the ability to compile rules relating to more than 
one variable as you’ll see here: 


&.ADD(X PROGRAMS-HIS Y IF X SPEAKS MARTI 
ANESE AND Y IS-A WEAPON 
1. 
? ) 
COMPILING RULE 
> ZAPPA PROGRAMS-HIS LASERGUN 
ZERON PROGRAMS-HIS LASERGUN 
> YYPRUS PROGRAMS-HIS LASERGUN 


v 


The program here was told that of a relationship (PROGRAMS- 
HIS) between the variables X and Y which exists if X SPEAKS 
MARTIANESE AND Y IS-A WEAPON. 


As we go along, gradually training PROLOG-A to act as an expert 
system in the demanding domain of Mars and its inhabitants and 
lifestyle, we can check on what it is learning. Does it know, for 
example, that laserguns are dangerous? 


&.IS(LASERGUN IS DANGEROUS) 
NO 
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It doesn’t, so we decide to teach it: 


&.ADD(X IS DANGEROUS IF X IS-A WEAPON) 
COMPILING RULE 
> LASERGUN IS DANGEROUS 


We check to see if the lesson has been learned (using IS to indicate 
that we are asking a question): 


&.IS(LASERGUN IS DANGEROUS) 
YES 


We can learn a lot by interrogating the database. We can ask 
questions in terms of relationships: 


& LIST SPEAKS 

ZAPPA SPEAKS MARTIANESE 
ZERON SPEAKS MARTIANESE 
YYPRUS SPEAKS MARTIANESE 


Or, as with HASTE, we can use variables in the question, making 
use of the command WHICH: 


& WHICH(X : X IS-A MARTIAN) 
ZAPPA 

ZERON 

YYPRUS 

NO (MORE) ANSWERS 


Here we are asking WHICH subject is such that it is true to say 
that this subject IS-A MARTIAN. Note the spaces in the 
interrogative form. These are vital if PROLOG-A is to perform 
satisfactorily. We do not need to restrict ourselves to a single 
variable: 


119 


&.WHICH((X Y) : X IS-A Y) 
ZAPPA MARTIAN 

ZERON MARTIAN 

EATEE SUPPLEMENT 

DRINKEE LIQuID 

LIQUIDDO BEVERAGE 
LASERGUN WEAPON 

YYPRUS MARTIAN 

NO (MORE) ANSWERS 


This question says, in effect, WHICH two things (X and Y) are there 
such that they are related by IS-A. Note that PROLOG-A prints out 
the values of X and Y it finds without also printing out the 
relationship. As well, note that (as in the examples above) answers 
from PROLOG-A end with the statement NO (MORE) ANSWERS 
to indicate it has given you all the information it can on that 
question. 


The final skill which PROLOG-A possesses is that of being able to 
compile rules in which there are two variables. You'll see that 
PROLOG-A, for all its brains, cannot work with information it does 
not have: 


&.ADD(X DRINKS Y IF X SPEAKS MARTIANESE 
AND Y IS-A BEVERAGE) 
COMPILING RULE 
> ZAPPA DRINKS LIQUIDDO 
> ZERON DRINKS LIQUIDDO 
> YYPRUS DRINKS LIQUIDDO 


&,ADD(X FEELS-SICK-AFTER-EATING Y IF X §& 
PEAKS MARTIANESE AND Y IS-A FOOD-CAPSULE 
) 

COMPILING RULE 
STATEMENT2 OF INPUT NOT IN DATABASE 
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&.LIST IS-A 

ZAPPA IS-A MARTIAN 
ZERON IS-A MARTIAN 
EATEE IS-A SUPPLEMENT 
DRINKEE IS-A LIQUID 
LIQUIDDO IS-A BEVERAGE 
LASERGUN IS-A WEAPON 
YYPRUS IS-A MARTIAN 


&.ADD(X FEELS-SICK-AFTER-EATING Y IF X § 

PEAKS MARTIANESE AND Y IS-A SUPPLEMENT) 
COMPILING RULE 

> ZAPPA FEELS-SICK-AFTER-EATING EATEE 

> ZERON FEELS-SICK-AFTER-EATING EATEE 

> YYPRUS FEELS-SICK-AFTER-EATING EATEE 
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Happy Families 


Entertaining and instructive as that demonstration was, the 
domain of Mars is, of course, a totally imaginary one, and the 
relationships were contrived to show PROLOG-A in action. To show 
that there is more to life than life on Mars, we'll look at a ‘real’ 
database, and one which is much more down to earth. 


Weare going to teach our program the following family tree: 


MARY JOE ANNE FRED JANE GEORGE ELIZABETH SAM JENNY MAX ROSE TIM 
host Ae ed eetoach ee te 
I | | | | | 
JOHN MICHELLE — LARRY NICOLA BILL GRETA 
Ne eteceel arr re ae) | Se ee 

| | | | 
CHRISTINE GERALD BRENDA BERT 
| ee eee | 


DAVID 

We start with the first generation: 
&.ADD(MARY MOTHER-OF JOHN) 
&.ADD(JOE FATHER-OF JOHN) 


&.ADD(ANNE MOTHER-OF MICHELLE) 


&.ADD(FRED FATHER-OF MICHELLE) 
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&.ADD( JANE MOTHER-OF LARRY) 
&.ADD(GEORGE FATHER-OF LARRY) 
&.ADD( JENNY MOTHER-OF BILL) 
&.ADD(MAX FATHER-OF BILL) 
&.ADD(ELIZABETH MOTHER-OF NICOLA) 


&.ADD(SAM FATHER-OF NICOLA) 


We'll check to see what PROLOG-A knows so far: 


&.LIST ALL 


MARY MOTHER-OF JOHN 

JOE FATHER-OF JOHN 

ANNE MOTHER-OF MICHELLE 
FRED FATHER-OF MICHELLE 
JANE MOTHER-OF LARRY 
GEORGE FATHER-OF LARRY 
JENNY MOTHER-OF BILL 
MAX FATHER-OF BILL 
ELIZABETH MOTHER-OF NICOLA 
SAM FATHER-OF NICOLA 
ROSE MOTHER-OF GRETA 
TIM FATHER-OF GRETA 


We add a few more branches to the family tree database: 


&.ADD( JOHN FATHER-OF CHRISTINE) 


& .ADD(MICHELLE MOTHER-OF CHRISTINE) 
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&.ADD(LARRY FATHER-OF GERALD) 
&.ADD(NICOLA MOTHER-OF GERALD) 
&.ADD(BILL FATHER-OF BRENDA) 
&.ADD(GRETA MOTHER-OF BRENDA) 
&.ADD(GERALD FATHER-OF BOB) 
&.ADD(BRENDA MOTHER-OF BOB) 


In our Martian domain, the relationships were of the IS-A or 
DRINKS variety. In this second database, we have FATHER-OF 
and MOTHER-OF, which means we can ask it, for example, to list 
out all the MOTHER-OFs it is holding: 


& LIST MOTHER-OF 

MARY MOTHER-OF JOHN 

ANNE MOTHER-OF MICHELLE 
JANE MOTHER-OF LARRY 

JENNY MOTHER-OF BILL 
ELIZABETH MOTHER-OF NICOLA 
ROSE MOTHER-OF GRETA 
MICHELLE MOTHER-OF CHRISTINE 
NICOLA MOTHER-OF GERALD 
GRETA MOTHER-OF BRENDA 
BRENDA MOTHER-OF BOB 


We can then check up on the FATHER-OFs: 


&.LIST FATHER-OF 
JOE FATHER-OF JOHN 
FRED FATHER-OF MICHELLE 
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GEORGE FATHER-OF LARRY 
MAX FATHER-OF BILL 

SAM FATHER-OF NICOLA 

TIM FATHER-OF GRETA 

JOHN FATHER-OF CHRISTINE 
LARRY FATHER-OF GERALD 
BILL FATHER-OF BRENDA 
GERALD FATHER-OF BOB 


The simplest query we can address to PROLOG-A is a query which 
checks whether a fact is true or not: 


&.IS(CHRISTINE MOTHER-OF LARRY) 
NO 


&.IS(LARRY FATHER-OF GERALD) 
YES 


&.IS(MICHELLE MOTHER-OF GRETA) 
NO 


Note that, as when dealing with Mars, PROLOG-A answers in 
English with a YES or a NO. Our final question above asked if 
Michelle was Greta’s mother. PROLOG-A told us this was not true. 
Therefore, it is only reasonable that we should ask it who Greta’s 
mother is: 


&.WHICH(X : X MOTHER-OF GRETA) 
ROSE 
NO (MORE) ANSWERS 


This question, as in some we saw on Mars, is really asking ‘Which X 
is there such that X is the MOTHER-OF GRETA?’. Fathers can get 
the same treatment: 
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&.WHICH(X : X FATHER-OF JOHN) 
JOE 
NO (MORE) ANSWERS 


We can now address a query, using two variables, to find out the 
name of every MOTHER-OF in the universe of PROLOG-A’s 
expertise: 


& .WHICH((X Y) :s X MOTHER-OF Y) 
MARY JOHN 

ANNE MICHELLE 

JANE LARRY 

JENNY BILL 
ELIZABETH NICOLA 
ROSE GRETA 
MICHELLE CHRISTINE 
NICOLA GERALD 
GRETA BRENDA 
BRENDA BOB 

NO (MORE) ANSWERS 


To date, we’ve been using the relationships MOTHER-OF and 
FATHER-OF. I think its about time we told PROLOG-A about 
parents: 


JOHN PARENT-OF CHAISTINE 
LARRY PARENT-OF GERALD 
BILL PARENT-OF BRENDA 
GERALD PARENT-OF BOB 
BILL PARENT-OF BERT 

BERT PARENT-OF DAVID 


But wait. Why should we go to all the trouble of entering PARENT- 
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OF into our program when we know that someone is a parent if she 
is a mother. Let our program do the work, via a rule: 


&.ADD(X PARENT-OF Y IF X MOTHER-OF Y) 
COMPILING RULE 
> MARY PARENT-OF JOHN 
COMPILING RULE 
COMPILING RULE 
> ANNE PARENT-OF MICHELLE 
COMPILING RULE 
COMPILING RULE 
> JANE PARENT-OF LARRY 
COMPILING RULE 
COMPILING RULE 
> JENNY PARENT-OF BILL 
COMPILING RULE 
COMPILING RULE 
> ELIZABETH PARENT-OF NICOLA 
COMPILING RULE 


We feed the program a similar rule about fathers, and then check to 
see what PROLOG-A has added to its database by use of these 
rules: 


&.LIST ALL 


MARY MOTHER-OF JOHN 

JOE FATHER-OF JOHN 

ANNE MOTHER-OF MICHELLE 
FRED FATHER-OF MICHELLE 
JANE MOTHER-OF LARRY 
GEORGE FATHER-OF LARRY 
JENNY MOTHER-OF BILL 
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MAX FATHER-OF BILL 
ELIZABETH MOTHER-OF NICOLA 
SAM FATHER-OF NICOLA 

ROSE MOTHER-OF GROLA 

ROSE MOTHER-OF GRETA 

TIM FATHER-OF GRETA 

JOHN FATHER-OF CHRISTINE 
MICHELLE MOTHER-OF CHRISTINE 
LARRY FATHER-OF GERALD 
NICOLA MOTHER-OF GERALD 
BILL FATHER-OF BRENDA 
GRETA MOTHER-OF BRENDA 
GERALD FATHER-OF BOB 
BRENDA MOTHER-OF BOB 

BILL FATHER-OF BERT 

GRETA MOTHER-OF BERT 
CHRISTINE MOTHER-OF DAVID 
BERT FATHER-OF DAVID 

JOE PARENT-OF JOHN 

FRED PARENT-OF MICHELLE 
GEORGE PARENT-OF LARRY 
MAX PARENT-OF BILL 

SAM PARENT-OF NICOLA 

TIM PARENT-OF GRETA 

JOHN PARENT-OF CHRISTINE 
LARRY PARENT-OF GERALD 
BILL PARENT-OF BRENDA 
GERALD PARENT-OF BOB 

BILL PARENT-OF BERT 

BERT PARENT-OF DAVID 

MARY PARENT-OF JOHN 

ANNE PARENT-OF MICHELLE 
JANE PARENT-OF LARRY 
JENNY PARENT-OF BILL 
ELIZABETH PARENT-OF NICOLA 
ROSE PARENT-OF GRETA 
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MICHELLE PARENT-OF CHRISTINE 
NICOLA PARENT-OF GERALD 
GRETA PARENT-OF BRENDA 
BRENDA PARENT-OF BOB 

GRETA PARENT-OF BERT 
CHRISTINE PARENT-OF DAVID 


Other relationships can be fed in, making our expert very expert 
indeed in terms of David’s family tree: 


&.ADD(X SIBLING-OF Y IF X MOTHER-OF BOB 
AND Y FATHER-OF DAVID) 

COMPILING RULE 
> BRENDA SIBLING-OF BERT 


We next tell PROLOG-A that MARY IS-MARRIED-TO JOE and 
then let it into the following secret: 


&.ADD(X SPOUSE-OF Y IF X IS-MARRIED-TO Y 

) 
COMPILING RULE 
COMPILING RULE 
COMPILING RULE 

> MARY SPOUSE-OF JOE 


Our database continues to grow as PROLOG-A’s expertise 
increases: 
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&.ADD(X MARRIED-TO Y IF X FATHER-OF LARR 
Y AND Y MOTHER-OF LARRY) 

COMPILING RULE 
> GEORGE MARRIED-TO JANE 


Our system is only an expert one if we can retrieve information from 
its database. We can ask short, direct questions about one 
individual: 


&.IS(BILL FATHER-OF BRENDA) 
YES 


& WHICH(X : JOE FATHER-OF X) 
JOHN 
NO (MORE) ANSWERS 


Or check up on related groups: 


&.WHICH((X Y) : X FATHER-OF Y) 
JOE JOHN 

FRED MICHELLE 
GEORGE LARRY 
MAX BILL 

SAM NICOLA 

TIM GRETA 

JOHN CHRISTINE 
LARRY GERALD 
BILL BRENDA 
GERALD BOB 
BILL BERT 
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BERT DAVID 
NO (MORE) ANSWERS 


&.WHICH((X Y) : X SON-OF Y) 
JOHN MARY 

JOHN JOE 

NO (MORE) ANSWERS 


Playing the Numbers Game 


PROLOG-A has numerical as well as textual skills, as we can see 
here: 


&.IS(SUM(12 13 25)) 
YES 


Here, we are asking the program if the sum of the first two numbers 
(12 and 13) is equal to the third number. Here are three more 
examples of this: 


&.IS(SUM(12 14 20)) 
NO 


&.IS(SUM(5.4 -8 -3.6)) 
NO 


&.IS(SUM(-7 -9 -16)) 
YES 
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This is of only limited use. However, SUM can be used to find 
unknown values. First, we will add two numbers: 


&.WHICH(X : SUM(5.4 -8 X)) 
-2.6 
NO (MORE) ANSWERS 


Here is the familiar ‘Which X is true such that this X is equal to 12 
plus 32?’ query form. Alternatively, you can query PROLOG-A in 
the form of ‘Which X, when added to a known number, gives a 
known result?’: 


&.WHICH(X : SUM(X 45 87)) 
42 
NO (MORE) ANSWERS 


Placing the unknown in a different position allows PROLOG-A to 
do subtraction: 


&.WHICH(X : SUM(123 X -98)) 
-221 
NO (MORE) ANSWERS 


This is asking ‘Which X is the result of subtracting the second 
number from the third one?’. 


PROLOG.-A can also check whether or not a number is an integer: 


&.1S(37 INT) 
YES 
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&.IS(-987 INT) 
YES 


&.1S(88.7 INT) 
NO 


&.1S(8870 INT) 
YES 


It can be asked to return the integer portion of a floating point 
number: 


&.WHICH(X : 1234.8 INT X) 
1234 


&.WHICH(X : -8889.2987 INT X) 
-8890 


TIMES is used in much the same way as SUM: 
&S.IS(TIMES(9 3 27)) 
YES 


&.IS(TIMES(27 3 99)) 
NO 


&.WHICH(X : TIMES(12 76 X)) 


912 
NO (MORE) ANSWERS 
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Just as SUM could be used for subtraction, so TIMES can be used 
for division. Placing the X at either the first or second position gives 
the same answer: 


&.WHICH(X : TIMES(12 X 76)) 
6.333333333333333 
NO (MORE) ANSWERS 


& .WHICH(X : TIMES(X 12 76)) 
6.333333333333333 
NO (MORE) ANSWERS 


Here, PROLOG-A is answering the question ‘Which X is there such 
that X equals 76 divided by 12?’. 


The program can compare the size of numbers (and also the relative 


position of words, with those coming earlier in alphabetical order 
being considered ‘less than’ those which come later): 


&.18(123 LESS 97) 
NO 


&.IS(97 LESS 123) 
YES 


&.IS(TIM LESS HARTNELL) 
NO 


&.IS(HARTNELL LESS COMPUTER) 
NO 


&.IS(EVIL LESS OF-TWO) 
YES 
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&.IS(A LESS 8B) 
YES 


&.IS(AAAA1 LESS A2) 
NO 


&.IS(AA LESS A1) 
NO 


&.IS(SHORT LESS SHORTY) 
YES 


You can see from the above that working with mathematics in 
PROLOG-A is not particularly easy. PROLOG (and LISP) were not 
really designed for mathematical work, but the provision for some 
maths was made, and its syntax follows the ‘list-processing’ syntax 
of PROLOG’s real function in life. 
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Chapter Thirteen 
The PROLOG-A Listing 


PROLOG-A is, of course, really a BASIC simulation of PROLOG, 
rather than a true interpreter, so it doesn’t behave in every situation 
exactly like the SIMPLE front-end of micro-PROLOG. However, it 
is robust in most situations (although rule compiling is not always 
as thorough as one would wish). The program will certainly give you 
a tool with which you can teach yourself PROLOG, and with which 
you can do a great deal of experimenting. 


The listing which follows is pretty formidable. To make it more 
manageable, I deliberately wrote PROLOG-A so you could leave out 
all the mathematical material without effecting the operation of the 
program at all (and you can, of course, add the numerical processing 
in later once you’ve recovered from entering the slightly-stripped 
down version of PROLOG-A). To delete the mathematics, simply 
leave out lines 2430 through to 3260. You could also (but I do not 
advise it) leave out lines 220, 230, 240 and 250. If you do, you'll only 
have to add them in later when you decide to incorporate the 
mathematics. 


As line 20 points out, all input must be in upper case. The program 
can cope with up to 1000 lines in its database and can compile up to 
100 new facts from a rule (although it is most unlikely this will ever 
be needed). However, the program runs more and more slowly (as 
I’d guess you would expect) as the amount of information it is 
holding grows. This does not really matter, as you'll find its 
response time to most queries is still only a matter of seconds. 
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10 REM PROLOG-A (SIMPLE FRONT-END) 

20 REM * ALL INPUT IN UPPER CASE * 

30 GOTO 50 

40 PRINT "NO (MORE) ANSWERS": RETURN 

50 GOSUB 3270:REM INITIALISE 

60 REM 8228488444444 44% 

70 PRINT 

80 INPUT "&.",J$ 

90 IF J$="" THEN END 

400 IF J$%="LIST ALL" THEN GOSUB 1860:GOT 
0 70 

110 IF LEFT$(J$,5)="LIST " THEN JS=MID$[ 
J$,5)+" "sGOSUB 990:GOTO 70 

120 IF RIGHT$(J8,1)<>")" THEN PRINT "4," 
rs INPUT M$:J$=J$+M$:GOTO 120 

130 LJ=LEN(J$) 

140 JS=LEFT$(J$,LU-1)+" "sREM STRIP FINA 
L ), REPLACE WITH SPACE 

150 LJ=LEN(J$) 

160 FLAG=0 

170 IF LEFT$(J8%,4)="ADD(" THEN J$=MID$S(U 
$,5):FLAG=1 

1480 RULEFLAG=0:PLUSFLAG=0:ARITHFLAG=0 
190 FOR R=14 TO LEN(J$) 

200 IF MID$(J$,R,4)=" IF " THEN RULEFLAG 
=R:FLAG=6 

210 IF MID$(J$,R,5)=" AND " THEN PLUSFLA 
G=R 

220 IF MID$(J$,R,4)="SUM(" THEN ARITHFLA 
G=1 

230 IF MID$(JU$,R,6)="TIMES(" THEN ARITHF 
LAG=2 

240 IF MID$(J$,R,6)=" LESS " THEN ARITHF 
LAG=3 

250 IF MID$(J$S,R,3)="INT" THEN ARITHFLAG 
=4 
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260 NEXT R 

270 IF LEFTS(J$,3)="IS(" THEN JS=MIDS(UJS 
»4):FLAG=2 

280 IF LEFT$(J$,10)="WHICH(X : " THEN J8 
=MID$(J$,11):FLAG=3 

290 IF LEFTS(J$,16)="WHICH((X Y) s X "T 
HEN JS=MID$(J$,17):FLAG=4 

300 IF FLAG=0 THEN PRINT "SYNTAX ERROR"? 
GOTO 70 

310 LJ=LEN(J$) 

320 REM NOW SEND TO RELEVANT SUBROUTINES 


330 IF PLUSFLAG<>0O THEN GOSUB 1950:GO0TO 
70:REM ENCODE RULE CONTAINING AND 

340 IF RULEFLAG<>0 AND FLAG<>5 THEN GOSU 
B 1110sREM ENCODE RULE 

350 IF ARITHFLAG<>0O THEN GOSUB 2430:G0TO 
70:REM ARITHMETIC 

360 IF RIGHT$(J$,3)=" X " OR RIGHTS$(J8,3 
=" Y " THEN J$S=LEFT$(J$,LJU-2)+" " 

370 LJ=LEN(J$) 

380 IF FLAG=1 THEN GOSUB 440:REM ADD 

390 IF FLAG=2 THEN GOSUB 520:REM IS 

400 IF FLAG=3 THEN GOSUB 610:REM WHICH 
410 IF FLAG=4 THEN GOSUB 830:REM WHICH2 

420 GOTO 70 

430 REM FEES EERE EERE EE 

440 REM ADD 

450 K=0 

460 K=K+1 

470 IF zZ$(K)=""_ THEN Z8(K)=J$:RETURN 

480 IF K<1000 THEN 460 

490 PRINT "MEMORY FULL" 


500 RETURN 
510 REM *#F SEEKERS ERE SEES 
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520 REM Is 

530 K=0 

540 K=K+1 

550 IF z$s(Kj=""" THEN 580 

560 IF zZ$(K)=J$ THEN PRINT "YES":s6GO0TO 59 
0 

570 IF K<1000 THEN 540 

580 PRINT "NO" 

590 RETURN 

600 REM HERES EKREEEEKEEEE 
610 REM WHICH 

620 IF LEFT$(J$,1)="X" THEN 710 

630 J&=LEFT$(J$,LJ-1) 

640 K=0 

650 K=K+1 

660 IF z$(K)="" THEN 690 

670 IF J$=LEFT$(Z$(K),LEN(J$)) THEN PRIN 
T RIGHTS$(Z$(K),(LEN(Z$(K))-LEN(UJ8$))) 
680 IF K<1000 THEN 650 

690 GOSUB 40 

700 RETURN 

710 REM * QUERY STARTS WITH X # 

720 JS=MID$(J$,3,LEN(J$)-3) 

730 LJ=LEN(J8) 

740 K=0 

750 K=K+1 

760 IF z$(Kj="" THEN 800 

770 Q$=MID$(ZS$(K),LEN(Z$(K)J—-LJ,LJ) 
780 IF Q$=J$ THEN PRINT LEFTS$(Z$(K),LEN[( 
Z$(K))-(LdU+2)) 

790 IF K<1000 THEN 750 

800 GOSUB 40 

810 RETURN 

820 REM SSEREEEEEEESERESREEESREERESEE 


830 REM WHICH2 
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840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


JS=LEFT$(J$,LUJU-2) 
LJ=LEN(J$) 


K=0 

K=K+1 

IF z$(K)="" THEN 960 
LFLAG=0 

FOR L=4 TO LEN(Z8$(K))-LJ 


IF MID$(Z$(K),L,LJJ)=J$ THEN LFLAG=L 
NEXT L 

IF LFLAG=0 THEN 950 

PRINT LEFT$(Z$(K),LFLAG-2) ;MIDS$(ZS$(K 


),(LFLAG+LJ) ) 


850 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 


LAG= 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
E ER 


IF K<1000 THEN 870 
GOSUB 40 
RETURN 
REM 8 SSSR ERK EKEEE REESE 
REM LIST 

K=0 

K=K+1 

IF zs(K)="" THEN RETURN 
LFLAG=0 

FOR L=1 TO LEN(Z$(K))-LEN[(J$) 
IF MID$(Z$(K),L,LEN(J$))=J8 THEN LF 
1 


NEXT L 
IF LFLAG=1 THEN PRINT Z8(K) 
IF K<1000 THEN 1010 


RETURN 
REM 88S EREEEEEEEEEE ES 


REM FORM RULES 

R=RULEFLAG 

ES=LEFTS$(J$,R):FS=MID$S(JS,R+4) 

IF LEFTS(E$,1)<>"X" THEN PRINT "RUL 
ROR":GOTO 70 
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1150 REM NEXT LINE DETECTS INPUTS LIKE 
xX EATS Y IF X IS-A Y 
1160 IF RIGHTS(FS,2)="Y " THEN 1390 
1170 PRINT TAB(18);"COMPILING RULE" 
1180 FOR T=1 TO 100 
1190 R$(TJ="" 
1200 NEXT T 
1210 ES=MIDS$(E$,3):FS=MID$S(FS$,3) 
1220 K=0:RR=0 
1230 K=K+1 
1240 IF z$(K)=""" THEN 1300 
1250 IF RIGHT$(Z$(K),LEN(F$))<>FS$ THEN 1 
370 
1260 RR=RR+1 
1270 RS&(RRJ=LEFTS(Z$(K),(LEN(Z$(K))-LEN[ 
FS)))+E8$ 
1280 PRINT "> "sRS(RR) 
1290 GOTO 1230 


1300 IF RR=O0 THEN RETURN 
1310 RC=0 

1320 RC=RC+1 

1330 Z$(K)J=RES(RC) 

1340 IF K<1000 THEN K=K+1 
1350 IF RC<RR THEN 1320 
1360 RETURN 

1370 IF K<1000 THEN 1230 
1380 RETURN 

1390 REM * RULE WITH 2 VARIABLES * 
1400 FOR T=1 TO 100 

1410 R&$(T)="" 

1420 NEXT T 

1430 K=0:RR=0 

1440 IF K=1000 THEN RETURN 
1450 K=K+1 

1460 IF Z$(K)=""_THEN 1770 
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REM SPLIT INTO THREE WORDS 

Q$=Z$(K) 

J=0 

J=J+1 

IF MID$(Q$,J,1)=" " THEN 1540 

IF J<LEN(Q$) THEN 1500 

PRINT "RULE COMPILING ERROR":GOTO 7 


AS=LEFTS$(Q$,J) 

Q$S$=MID$(Q$,J+1) 

J=0 

J=J+1 

IF MID$(Q$,J,1)=" " THEN 1610 

IF J<LEN(Q$) THEN 1570 

PRINT "RULE COMPILING ERROR":GOTO 7 


BS=LEFT$(Q$,J) 

Q$=MID$(Q$8,J+1) 

J=0 

J=J+1 

IF MID$(Q$,J,1)=" " THEN 1680 

IF J<LEN(Q$) THEN 1640 

PRINT "RULE COMPILING ERROR":GOTO 7 


PRINT TAB(18);"COMPILING RULE" 
CS=LEFT$(Q$8,J) 
MS=MIDS(FS$,3,LEN(B8) ) 

IF BS<>M$ THEN 1440 

RR=RR+1 
NS=MID$(E$,3,LEN(E$)-4) 
R$(RR)=AS+NS+C8$ 

PRINT "> "SRS(RR) 


GOTO 1440 
IF RR=O0 THEN RETURN 
M=0 
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1790 
1800 
1810 
1820 


M=M+1 

IF M>RR THEN RETURN 

Z$(KJ)=RE(M) 

IF K=1000 THEN PRINT "OUT OF MEMORY 


"3;GOTO 70 


1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 


1960 


1970 


K=K+1 

GOTO 1790 

REM #4444444 4444ETEEEEEERES 

REM LIST ALL 

PRINT 

K=0 

K=K+1 

IF zZ$(K)="" THEN RETURN 

PRINT zZ$(K) 

IF K<1000 THEN 1890 

RETURN 

REM FHKE EEEERREEEEEEEEE 

REM FORM RULES WITH ‘AND! OF THE 
FOLLOWING TYPE: 

REM (X EATS Y IF X IS-A BIRD AND 
Y COMES-IN BOXES) 

REM X STATEMENT MUST BE IN LIST 


PRECEDING Y FOR ALL EXAMPLES TO BE CODED 


1980 
1990 
2000 
2010 
2020 


2030 
2040 
2050 


REM SPLIT INTO SECTIONS 
J$=MID$(J$,2):REM STRIP "X" 
PRINT TAB(20);"COMPILING RULE" 
J=1 

J=J+1 


IF MID$(J$,J,1)=" " THEN 2060 
IF J<LEN(J$) THEN 2020 
PRINT "RULE COMPILING ERROR":RETURN 


AS=LEFTS(J$,J):REM RELATIONSHIP 1 
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2070 J$=MID$(J$,J+7):REM STRIP 
TO START OF SECOND RELATIONSHIP 
2080 J=1:COUNT=0 
2090 J=J+1 
2100 IF MID$(J$,J,1)=" " THEN COUNT=COUN 
T+1 
2110 IF COUNT=2 THEN 2140 
2120 IF J<LEN(J$) THEN 2090 
2130 PRINT "RULE COMPILING ERROR":RETURN 


2140 BS=LEFTS$(J$,J):REM STATEMENT1 

2150 CS=MID$(J$,J+6):REM STATEMENT2 

2160 IF C$=" " THEN PRINT "RULE COMPILIN 
G ERROR" :RETURN 

2170 REM NOW GO THROUGH DATABASE 

2180 FOR T=1 TO 200 

2190 R$(T)="" 

2200 NEXT T 

2210 R1=0:R2=99 

2220 K=0 

2230 K=K+1 

2240 IF z$(K)=""" THEN 2310 

2250 IF R1=89 OR R2=200 THEN PRINT "MEMO 
RY SHORTAGE":GOTO 2310 

2260 LB=LEN(B$) 

2270 IF RIGHTS(Z$(K),LB)=BS THEN R1=R1+1 
s:R$(R1)=LEFTS(Z$(K),LEN(Z$(K))-LB) 

2280 LC=LEN(C$) 

2290 IF RIGHTS$(Z$(K),LC)=C& THEN R2@=R2+1 
:R$(R2)=LEFTS(Z$(K),LEN(Z$(K))-LC) 

2300 IF K<1000 THEN 2230 

2310 IF R$(100)="" THEN PRINT "STATEMENT 
2 OF INPUT NOT IN DATABASE": RETURN 

2320 REM NOW ENCODE RULES 

2330 R1=0:R2=99 
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2340 R2=R2+1 

2350 R1=R1+1 

2360 IF R$(R1)>" " AND RES(R2)>" " THEN Z 
S$(KJ=RS(R1)+AS+RES(RA)+" " 

2370 PRINT "> "3Z8(K) 

2380 K=K+1 

2390 IF R$(R2+1)<>"" THEN 2340 

2400 IF R$(R1+1)<>"" THEN 2350 

2410 RETURN 

2QA20 REM FFE EEEEEEEEEE EEE 
2430 REM ARITHMETIC 

2440 LJ=LEN(J$) 

2450 IF ARITHFLAG<3 THEN GOSUB 2490 
2460 IF ARITHFLAG=3 THEN GOSUB 2880 
2470 IF ARITHFLAG=4 THEN GOSUB 3080 
2480 RETURN 

2490 REM ***** SUM TIMES *#*### #844 
2500 J$S=MID$(J$,5,LJ-5) 

2510 IF LEFTS$(J$,2)="S(" THEN JS=MIDS(US 
13) 

2520 LJ=LEN(J$) 


2530 K=0 

2540 K=K+1 

2550 IF MID$(J$,K,1J)=" " THEN A$=LEFTS$(J 
$,K-1):JS=MID$(U$,K+1):GOTO 2580 

2560 IF K<LJ THEN 2540 

2570 PRINT TAB(12)3;"ARITHMETIC ERROR": RE 
TURN 

2580 LJ=LEN(J$) 

2590 K=0 

2600 K=K+1 

2610 IF MID$(J$,K,1)=" " THEN BS=LEFTS(J 
$,K-1)sJS=MID$(JU$,K+1):GOTO 2640 

2620 IF K<LJ THEN 2600 
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2630 PRINT TAB(12);"ARITHMETIC ERROR": RE 
TURN 

2640 LJ=LEN(J$) 

2650 K=0 

2660 K=K+14 

2670 IF MID$(J$,K,1)=")" THEN C$=LEFTS$(J 
$,K-1):GOTO 2700 

2680 IF K<LJ THEN 2660 

2690 PRINT TAB(12);"ERROR (TOO MANY VARI 
ABLES)"sRETURN 

2700 AN=0:BN=0:CN=0 

2710 IF ASC(A$)>58 THEN AN=1 

2720 IF ASC(B$)>58 THEN BN=2 

2730 IF ASC(C$)>58 THEN CN=4 

2740 GUIDE=AN+BN+CNeIF GUIDE=3 OR GUIDE= 
5 OR GUIDE=6 THEN 2680 

2750 IF ARITHFLAG=2 THEN 2820:REM TIMES 

2760 IF GUIDE>O THEN 2790 

2770 IF VAL(A$)+VAL(BS)=VAL(C$) THEN PRI 
NT "YES":RETURN 

2780 PRINT "NO":RETURN 

2790 IF GUIDE=1 THEN PRINT VAL(C$)-VAL(B 
$):GOSUB 40:RETURN 

2800 IF GUIDE=2 THEN PRINT VAL(C$)-VAL[(A 
$):GOSUB 40:RETURN 

2810 PRINT VAL(A$)+VAL(B$):GOSUB 40:RETU 
RN 

2820 REM * TIMES * 

2830 IF GUIDE>O THEN 2860 

2840 IF VAL(A$)*VAL(BS$)=VAL(C$) THEN PRI 
NT "YES":RETURN 

2850 PRINT "NO":RETURN 

2860 IF GUIDE=1 THEN PRINT VAL(C$)/VAL(B 
$):GOSUB 40:RETURN 
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2870 


IF GUIDE=2 THEN PRINT VAL(CS$)/VAL[A 


$):GOSUB 40:RETURN 


2880 
RN 

2890 
2900 
2910 


2920 
2930 
2940 
2950 
T+1 

2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 


PRINT VAL(A$)*VAL(B$):GOSUB 40:RETU 


REM *#*#8488 LESS #848 e REESE 


NF=0 
IF ASC(J$)<58 THEN NF=1:REM NUMBERS 


COUNT=0 

K=0 

K=K+1 

IF MID$(J8,K,1)=" " THEN COUNT=COUN 


IF COUNT=2 THEN 3000 

IF K<LEN(J$) THEN 2940 

PRINT TAB(20);"COMPARISON ERROR" 
RETURN 

BS=MID$(J$,K+1) 

AS=LEFT$(J$,K-6) 

IF NF=1 THEN 3050 

IF A$<B$ THEN PRINT "YES": RETURN 
PRINT "NO":RETURN 

REM * NUMBERS * 

IF VAL(A$)<VAL(B$) THEN PRINT "YES" 


:RETURN 


3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 


PRINT "NO"sRETURN 

REM **€ 844288 TNT 88888 8H ERS 

IF RIGHTS(J%$,2)="X " THEN 3190 
K=0 

K=K+1 

IF MID$(J$,K,1J)=" " THEN 3160 

IF K<LEN(J$) THEN 3110 

PRINT TAB(20);"ARITHMETIC ERROR" 
RETURN 

A=VAL(LEFTS$(J$,K-1) ) 

IF INT(A)=A THEN PRINT "YES":RETURN 
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3180 PRINT "NO":RETURN 

3190 K=0 

3200 K=K+1 

3210 IF MID$(J$,K,1)=" " THEN 3240 
3220 IF K<LEN(J$) THEN 3200 

3230 PRINT TAB(20);"ARITHMETIC ERROR"SRE 
TURN 

3240 PRINT INT(VAL(LEFT$(U8,K-1))) 
3250 RETURN 

3260 REM FEHR EEEEEEEEEEEE ES 
3270 REM INITIALISE 

3280 CLS 

3290 DIM z$(1000),R$(200) 

3300 RETURN 
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Chapter Fourteen 
A Pronounced LISP 


PROLOG, which we’ve studied in the preceding chapters, is an 
outgrowth of LISP (as are the languages Smalltalk and Logo). 
LISP is much more difficult to learn to use than is the SIMPLE 
front-end of PROLOG, but with this increased difficulty of learning 
comes a significant increase in flexibility and power. Once you’ve 
mastered PROLOG-A, you'll be in a fairly good position to dip into 
LISP. 


The Words 


There are only two kinds of words in LISP, atoms and lists. An 
atom is a word (or a combination of letters and numbers, which 
starts with a letter). It cannot contain spaces or any characters 
which are not letters or numbers. Here are some atoms: 


COMPUTER BOMB R2D2-~ C8PO 


A list is made up of atoms and other lists. It starts with a left 
parenthesis, followed by atoms and lists, and ends with a right 
parenthesis. There may well be other pairs of parentheses within the 
outer pair. The simplest list contains a single atom, like this: 
(COMPUTER), or more than one atom, separated by spaces: 
(COMPUTER BOMB R2D2). LISP allows for an empty list, which 
is just (). It is called the null list. 


A list can contain other lists. Think of the list (HOW DO YOU DO). 
It could be within another list: (THE QUESTION IS (HOW DO 
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YOU DO)). Lists (and proliferating parentheses) can get quite 
complex, as in the list (HOW (DO YOU (DO IT)) NOW) BRAD). 
(Indeed, the large numbers of parentheses has given rise to the 
theory that LISP, instead of being an acronym for LISt Processing, 
really stands for Lots of Infuriatingly Stupid Parentheses.) 


Don’t worry if this seems to be becoming complex already. Our 
LISP-like programs, EASLE and SSLISP, will lead you through your 
list-manipulations relatively painlessly, doing such things as 
counting the parentheses for you, and making sure they balance. 


The Basic Functions 


There are six basic functions in LISP. Our first program, EASLE 
(Easy And Simple Lisp-like Exerciser), will allow you to experiment 
with them. The six functions are CAR, CDR, CONS, ATOM, NULL 
and EQ. On a real LISP system, you can use just these six to create 
just about any computer function which can be created. You'll soon 
learn what the six functions do by seeing them in action in EASLE. 
(Both EASLE and SSLISP follow the syntax of EVQ-LISP, as it is 
one of the easiest to use. Other dialects, such as EV-LISP or P- 
LISP, demand slightly different input syntax. However, all LISPs, 
especially at their basic level, are fairly alike, and the skills you'll 
gain working with my programs can be fairly easily adapted to the 
demands of whichever system you end up using.) 


CAR 


This is used to get the first element of a list. The function is used 
with a pair of parentheses of its own, enclosing the list you want to 
check (which is within its own pair of outer parentheses). The 
simplest case is as follows: 


> CAR (({THIS IS HEAVY MAN) ) 
VALUE IS... 
THIS 


150 


In the next case, the first element of the list is another list, (THIS 
IS) as you can see when you CAR the list: 


> CAR (( (THIS IS) HEAVY MAN)) 
VALUE IS... 
(THIS IS) 


Where PROLOG answered YES and NO to questions, LISP returns 
a T (for ‘true’) or a NIL (for false). An empty list, (), is referred to as 
NIL by the system, as you'll see here, where the empty list is the 
first element of the LIST we are CARing: 


> CAR ((() (THIS IS HEAVY))) 
VALUE IS... 
NIL 


You'll recall I said earlier that EASLE and SSLISP count 
parentheses for you. You can see this happening here, when I 
accidentally left off the final ): 


> CAR ((THIS IS) (THE DAWNING) 
-> MISSING ) 
> ) 
VALUE IS... 
(THIS IS) 


CDR 


Pronounced ‘cooder’”’ (or ‘cudder’ or ‘coulder’, depending upon which 
LISP programmer you first meet), CDR returns the list which 
remains when the CAR has been removed, as you'll see from the 
following examples: 
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CONS 


This function puts lists together (in contrast to CAR and CDR 
which broke them up). It combines two arguments, the second of 
which must be a list, as should be clear from the next sample run of 


CDR ((AGE OF AQUARIUS) ) 
VALUE IS... 
(OF AQUARIUS) 


COR (((THE AGE OF) AQUARIUS) ) 
VALUE IS... 
(AQUARIUS) 


COR (( (DAWNING OF THE AGE))) 
VALUE IS... 
NIL 


COR ((() (AGE OF SPECTRUM) )) 
VALUE IS... 
((AGE OF SPECTRUM) ) 


our EASLE program: 


> CONS (COMPUTERS [PROVE LITTLE) ) 


VALUE IS... 
(COMPUTERS PROVE LITTLE) 


> CONS [((COMPUTERS) (WORK SLOWLY)) 


VALUE IS... 
(({ COMPUTERS) WORK SLOWLY) 


> CONS ((AGE) [((BEFORE (BEAUTY)))) 


VALUE IS... 
((AGE) (BEFORE (BEAUTY))) 
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> CONS (AQUARIUS ()) 
VALUE IS... 
(AQUARIUS) 


You can see that a CONSed list is made up of a CAR and a CDR, the 
two arguments of the list. 


ATOM 


From CAR, CDR and CONS we move to ATOM, which is much 
simpler than the preceding three. You'll remember that I pointed 
out that, when queried, LISP returns T (for ‘true’) or NIL (for ‘false’, 
or ‘empty list’). ATOM (along with the next two functions we’ll look 
at, EQ and NULL) are test functions, and returns a T or a NIL. 
ATOM returns a T if the only item in the list being considered is an 
atom. The program’s operation should make this clear: 


> ATOM (SPITFIRE) 
VALUE IS,.. 
T 


> ATOM ((AGE OF AQUARIUS) ) 
VALUE IS... 
NIL 


> ATOM [( (AQUARIUM) ) 


VALUE IS... 
NIL 


EQ 
We saw above that ATOM returns a T if the single argument is an 


atom, and NIL otherwise. EQ (for ‘equal’) returns T if the two 
arguments of EQ are identical atoms; otherwise it gives a NIL. 
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Here is EQ in action: 


> EQ (AQUARIUS AQUARIUM) 
VALUE IS... 
NIL 


> EQ (FISHTANK FISHTANK) 
VALUE IS... 
T 


NULL 


Finally, we look at the sixth function, a test function called NULL. 
NULL has a single argument, and returns T if the argument is the 
empty list () and NIL if it is anything else: 


> NULL (()) 
VALUE IS... 
T 


> NULL ((())) 
VALUE IS... 
NIL 


> NULL () 
ILLEGAL - NULL NEEDS ARGUMENT 
VALUE IS... 


> NULL ((DAWNING OF THE AGE)) 
VALUE LS) st: 
NIL 
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EASLE 


True LISP (unlike EASLE) allows you to enter elaborate, compound 
expressions to be evaluated, such as: 


CONS (CAR ((SAUSAGES)) (CONS (FRY) 
CDR ((NEVER VERY WELL)))) 


This returns: 


VALUE IS... 
(SAUSAGES FRY VERY WELL) 


SSLISP (which stands for Single Statement LISP) does not allow 
multiple expressions either, which severely limits its value as a tool in 
its own right. However, although EASLE and SSLISP cannot be 
used to create expert systems as they are, the two languages can 
certainly be used to equip you with the basic skills needed to grapple 
with a more complete LISP. 


Enter and run EASLE now, and use to evaluate several lists of your 
own: 


10 REM EASLE 

20 CLS 

30 DIM X(40),Y(40),Z(40) 

40 PRINT 

50 INPUT "> ",A$ 

60 IF AS="" THEN END 

70 REM *#FHRSE EKER EERE EERE EES 
80 FOR J=1 TO 40 

80 X(J)=O0:Y(J)=0:Z(uJ)=0 

100 NEXT J 

110 REM *#*8eeeeeeeeeeeeeseeeeeeese 


120 R=0:S=0:T=O:CFIRST=O0:CSECND=0: EDGE=0 
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130 
140 
150 
HEN 
160 


FOR J=1 TO LEN(A$) 

BS=MID$S(A$,J,1) 

IF BS="(" THEN S=S4+1:Z(S)=J:IF T=0 T 
CFIRST=J 

IF BS=")" THEN T=T+1:Y(T)=J:IF CSECN 


D<>0 AND EDGE=0 THEN EDGE=J-1 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
it) 

340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


(2)) 


IF T=1 AND BS=")" THEN CSECND=J 

IF BS=" " THEN R=R4+12X(R) Hd 

NEXT J 

IF S=T THEN 260:REM [( ) BALANCE 

IF S<T THEN PRINT " -> MISSING {* 


IF S>T THEN PRINT " -> MISSING 
INPUT " > ",B$ 

AS=A$+B$ 

GOTO 80 

FLAG=0 


IF LEFTS$(A$,5)="CAR (" THEN FLAG=1 
IF LEFTS(A$,5)="CDR (" THEN FLAG=2 
IF LEFTS(A$,6)="CONS (" THEN FLAG=3 
IF LEFTS$(A$,6)="ATOM (" THEN FLAG=4 
IF LEFTS(A$,4)="EQ (" THEN FLAG=5 

IF LEFTS$(A$,6)="NULL (" THEN FLAG=6 
ON FLAG GOSUB 420,470,550,690,780,92 


IF FLAG<>0 THEN GOSUB 360 
GOTO 40 

REM ** RETURN ANSWER ** 
PRINT " VALUE IS..." 


IF BS<>"()" THEN PRINT " "3BS$ 
IF BS="()" THEN PRINT " NIL" 
RETURN 

REM FFF ERE EERE ERR ERE EE ES 
REM ** CAR 29 


IF S=2 THEN BS=MIDS$(A$,Z(2)4+1,X(2)-Z 
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440 


IF S>2 THEN BS=MID$(A$,CFIRST,CSECND 


-CFIRST+1) 


450 
460 
470 
480 
490 
500 
510 


RETURN 

REM *#FCHHKEEEEEERE EERE EERE EEE 

REM pad CDR +* 

GOSUB 420 

LB=LEN(B$)+7 
BS="("+MID$(A$,LB,EDGE-1]) 

IF RIGHT$(B$,2)="))" THEN BS=LEFT$(B 


$,LEN(B$)-1) 


520 


IF MID$(B$,2,1)=" " THEN BS="("4MID$ 


(8$,3) 


530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 


RETURN 

REM *# #884464 444446484464644624% 
REM ** CONS ** 
BS=MIDS(A$,7,LEN(A$J)-1) 

J=0 

IF LEFT$(B$,1)="(" THEN J=1 

J=J+1 

IF MID$(BS,J,1)="(" THEN 630 

IF J<LEN(B$) THEN 590 

B$=" > CONS ERROR <":sRETURN 
LB=LEN(B$)J)-1 
BS="("+LEFT$(B$,J-1)+MID$(BS$,J+1) 
BS=LEFT$(B$,LB) 

IF RIGHT$(BS,2)=" )" THEN BS=LEFTS(B 


$,LEN(BS)-2)+")" 


670 
680 
690 
700 
710 
720 
730 


ie i 


RETURN 

REM *# €SSSeeeeeeeeeeeeeeee ee EEE 

REM ** ATOM ** 
AS=MID$(A$,7,LEN(A$)-1) 

J=0:BS="NIL" 

J=J+1 

IF MID$(A$,J,1J)=" " OR MIDS(A$,J,1)= 
THEN RETURN 
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740 
750 
760 
770 
780 
7380 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


IF J<LEN(A$) THEN 720 


BS="T" 

RETURN 

REM FESS EEEEEEEE EEE 
REM *¢ Eq ** 


AS=MIDS(A$S,5) 
AS=LEFTS$(A$,LEN(A$)-1) 
J=0:BS="NIL" 

J=J+1 

IF MID$(A$,J,1)=")" THEN RETURN 
IF MID$(A$,J,1)=" " THEN 870 
IF J<LEN(A$) THEN 820 

RETURN 

CS=LEFTS$(A$,J-1) 
AS=MIDS(A$,J+1) 

IF CS=A$ THEN BS="T" 


RETURN 

REM FFE EE HE EEE EE EDS 
REM ** NULL ** 

BS="NIL" 


IF A$S="NULL ()" THEN PRINT "ILLEGAL 


- NULL NEEDS ARGUMENT": B$="" 


950 
960 


IF A$S="NULL (())" THEN BS="T" 
RETURN 
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Chapter Fifteen 
SSLISP 


From EASLE you have learned how to use the six basic LISP 
functions, CAR, CDR, CONS, ATOM, EQ and NULL. In our major 
LISP-like program, SSLISP (for Single Statement LISP), we will 
have access to the original six, plus many, many of the functions (31 
in all) which are supplied with most LISP systems. 


SSLISP will even allow you to define your own functions, so if you 
think FIRST is a more logical name than CAR, you can define a 
function FIRST which will behave just as CAR does. SSLISP 
allows you to define up to twenty functions of your own. 


As the original six functions are exactly the same in SSLISP as they 
were in EASLE, I won’t give any additional sample runs of them in 
action. Instead, we will concentrate on the new functions. 


MEMBER 


MEMBER looks for the presence of the first list within the whole 
list, and returns the list of which the first list is the CAR. If it 
cannot find such a list, it returns NIL. MEMBER uses EQUAL 
(which we will come to in due course) in its definition, wherease the 
function which follows — MEMQ — uses EQ. (On some systems 
MEMBER tests for the presence of an atom within a list, returning 
T or NIL.) 
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: MEMBER ((THE END) [AT (THE END) (WE SI 
GN OFF))) 

VALUE IS... 

(( THE END) (WE SIGN OFF)) 


: MEMBER (THIS [((THIS TEST) PROVES IT)) 
VALUE IS... 
NIL 


MEMQ 


As I said above, MEMQ uses EQ in its definition, where MEMBER 
uses EQUAL. The following sample run shows the effect of this 
change in practice: 


: MEMQ (NOW (PERHAPS NOW IS THE TIME) ) 
VALUE IS wee 
(NOW IS THE TIME) 


: MEMQ (NOW [PERHAPS (NOW) WE SING) ) 
VALUE IS... 
NIL 


APPEND 


You can probably guess from its name that APPEND is used to 
create a single list by joining two other lists. This next sample run 
shows it in action: 


: APPEND ((LET US) (JOIN TwO LISTS)) 
VALUE IS... 
(LET US JOIN TwO LISTS) 


s: APPEND ((IT MAKES TWO) [INTO ONE) ) 


VALUE IS... 
(IT MAKES TWO INTO ONE) 


REVERSE 


This function is ideal for turning the tables. It reverses the elements 
of a list, but does not reverse elements bound within their own 
parentheses. This should be clear from the second of our two sample 


runs of this function: 


s REVERSE ((UPSIDE DOWN AND BACK)) 
VALUE IS,.. 
(BACK AND DOWN UPSIDE) 


: REVERSE ((NINE SAVES (A STITCH (IN TIM 


E)))) 
VALUE IS... 
( (A STITCH (IN TIME)) SAVES NINE) 


EQUAL 


We mentioned EQUAL a short time ago when discussing 
MEMBER and MEMQ. EQUAL tests to see if the two parts of the 
list it is examining are identical. The two arguments of this function 
can be, as you can see, numbers, lists, or atoms: 


: EQUAL ((THIS ONE) (THIS ONE)) 
VALUE IS... 
T 


: EQUAL (9 9) 


VALUE IS... 
T 
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: EQUAL ((THIS [(ONE)) (THIS (ONE))) 
VALUE IS... 
T 


: EQUAL ((THIS ONE) (THAT ONE) ) 
VALUE IS... 
NIL 


: EQUAL (9 -9) 
VALUE IS... 
NIL 


LIST 


Whereas EQUAL, and many other LISP functions, can take two 
and only two arguments, LIST will accept any number of them. It 
returns the values of the arguments of the function (which means it 
simply returns the LIST): 


: LIST (WE CAN WORK IT OUT) 
VALUE IS... 
(WE CAN WORK IT OUT) 


: LIST (WE CAN (WORK IT) OUT) 
VALUE IS... 
(WE CAN (WORK IT) OUT) 


: LIST (WE (CAN (WORK IT)) OUT) 
VALUE IS... 
(WE (CAN (WORK IT)) OUT) 


: LIST (WE (CAN (WORK (IT OUT)))) 


VALUE IS... 
(WE (CAN (WORK (IT OUT)))) 
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Operating Mathematically 


We saw the rather strange mathematical contortions demanded by 
PROLOG earlier in this section of the book. LISP makes you jump 
through similar hoops. 


The first pair of functions we will look at are ADD1 and SUB1, 
which do just what their names indicate, add or subtract one to the 
single argument which follows them: 


ADD1 (98) 
VALUE IS,.. 
10 


: ADD1 (-100) 
VALUE IS... 
-99 


: ADD’ (0) 
VALUE IS... 
41 


: SUB1 (0) 
VALUE IS... 
-1 


: SUB1 (-89) 
VALUE IS,.. 
-100 


ZEROP checks to see if the argument of the function is zero or not, 
returning either T or N. ONEP does the same as a test for the 
number one: 
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: ZEROP (1) 
VALUE IS... 
NIL 


: ZEROP (9) 
VALUE IS... 
NIL 


: ZEROP (0) 
VALUE IS... 
T 


: ONEP (1) 
VALUE IS... 
T 


: ONEP (0) 
VALUE IS... 
NIL 


NUMBERP will return a T if the argument is a number, or NIL if it 
is not, while the function MINUSP checks to see if the argument is a 
negative number or not: 


s NUMBERP (NINE) 
VALUE IS... 
NIL 


: NUMBERP (9) 
VALUE IS... 
T 


: MINUSP (9) 
VALUE IS... 
NIL 


MINUSP (-9) 
VALUE IS... 
T 


Our next two functions, GREATERP and LESSP, demand two 
arguments. They compare the value of the first argument with the 
second, returning T or NIL: 


: GREATERP (999 12) 
VALUE IS... 
T 


: GREATERP (12 888) 
VALUE IS... 
NIL 


LESSP (12 888) 
VALUE IS... 
T 


: LESSP (-10 -1) 
VALUE IS... 
T 


: LESSP (899 12) 


VALUE IS... 
NIL 
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Next we have MAX and MIN which can accept any number of 
arguments. They return the maximum and minimum value found in 
their respective lists: 


: MAX (8 -8 123 0 33 19) 
VALUE IS... 
123 


MIN (9 -8 123 0 383 19) 
VALUE IS... 
-8 


MINUS changes the sign of a single argument (effectively 
multiplying it by minus one): 


: MINUS (8) 
VALUE ES ose 
-8 


: MINUS [(-8) 
VALUE IS... 
8 


Operating Numerically 


While the above mathematical functions are essentially ‘passive’, 
returning a statement about arguments or changing the number by 
one, the next set are used to actually carry out mathematical 


operations. 


DIFFERENCE returns the difference in value between the two 
arguments, subtracting the second from the first: 


: DIFFERENCE (88 12) 
VALUE IS... 
76 


: DIFFERENCE (100 -100) 
VALUE IS... 
200 


You can raise the first argument to the power of the second with 
EXPT: 


: EXPT (38 38) 
VALUE IS... 
27 


s EXPT (3 -3) 
VALUE IS... 
3.703704E-02 


RECIP returns the value of one over the argument: 


: RECIP (3) 
VALUE IS... 
.3833334 


: RECIP (10) 
VALUE IS... 
1 


: RECIP (.1) 


VALUE IS... 
10 
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QUOTIENT divides the first argument by the second: 


: QUOTIENT (12 3) 
VALUE IS... 
4 


: QUOTIENT (3 12) 
VALUE IS... 
025 


REMAINDER returns the remainder after a modulo arithmetic 
division has been performed (in many BASICs, the operator MOD 
returns the integer value which is the remainder of an integer 
division: REMAINDER is the LISP equivalent): 


: REMAINDER (10 3) 
VALUE IS... 
1 


: REMAINDER (100 9) 
VALUE IS... 
1 


: REMAINDER (99 11) 
VALUE IS... 
0 


REMAINDER (12) 
VALUE IS... 
ERROR -—- ONLY ONE ARGUMENT 


: REMAINDER (12 3) 
VALUE IS... 
it) 
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While many of the above functions can only handle two arguments, 
our final two, PLUS and TIMES, will accept any number of 
arguments: 


PLUS (8 12 -38) 
VALUE IS... 
17 


PLUS (-8 -12 3) 
VALUE IS,.. 
-17 


TIMES (12 3) 
VALUE IS... 
36 


: TIMES (12 3 8) 
VALUE IS... 
108 


TIMES (24 .01) 
VALUE IS... 
224 


: TIMES (24 .1) 
VALUE IS... 
2.4 
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Chapter Sixteen 
Defining Your Own LISP 
Functions 


I mentioned, when discussing the six basic functions available on 
LISP systems (CAR, CDR and the rest), that these could be used to 
define any functions which could be created on a computer system. 
LISP uses the function DEFINE to define new functions. Our 
DEFINE function follows standard LISP syntax for user-defining 
functions, so the practice you get with SSLISP can be directly 
transferred to a complete LISP system. However, because SSLISP 
can only accept a single statement at a time, you are limited here to 
changing the name of a function which the system supports. This 
allows you to change the names of up to twenty of the functions 
provided with SSLISP. 


The syntax for using DEFINE is as follows: 


DEFINE (NEW-NAME (LAMBDA (DUMMY-VAR) (FUNCTION DUMMY-VAR) ) ) 


In common with just about everything in the world of LISP, the 
definition of a function is a list. The CAR of the list is the name of 
the function (NEW-NAME in the sample above). This name can be 
any atom, but should not be a name which is already in use by your 
system for a function. The new name is followed by the word 
LAMBDA (the name coming from the logical formalism called the 
lambda-calculus, developed and explained by Alonzo Church in his 
Introduction to Mathematical Logic, Vol. 1; Princeton, New Jersey; 
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Princeton University Press, 1956). Despite its impressive lineage, 
we can effectively ignore the word, although keep in mind that it has 
to be there for this (and on just every other LISP system in the 
world) DEFINE function to work. 


After LAMBDA comes a dummy variable (here called DUMMY- 
VARIABLE of the type upon which you'll expect your defined word 
to operate). Next is the actual system function you wish NEW- 
NAME to imitate. (On real LISP systems you can use other 
definitions in this place, leading to complex and very powerful 
definitions. FORTH grants you the same power.) The final element 
in the list is the dummy variable again. 


This may all sound a little bewildering. (I also found it one of the 
more difficult elements of LISP to understand.) However, once you 
see it in action you're likely to realise it is pretty simple. 


The function CAR, as you know by now, returns the first element of 
a list. Our first use of DEFINE will be to create a function called 
FIRST which will return the CAR of a list. We enter the following 
into our SSLISP system: 


: DEFINE (FIRST [LAMBDA (DUMMY) (CAR DUMMY))) 
VALUE IS... 
FIRST 


We then test it by using FIRST as if it were a standard system 
function: 


s FIRST ((THIS IS A TEST)) 
VALUE IS... 
THIS 
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: FIRST (((THIS IS) HEAVY MAN)) 
VALUE IS... 
(THIS IS) 


It works! If you prefer to use an X, rather than the word TIMES to 
multiply, you can DEFINE X so this will be so: 


: DEFINE (X (LAMBDA (NUM) (TIMES NUM))) 
VALUE IS... 
X 


: X (8 9) 
VALUE IS... 
72 


We can use BIGGEST to work as MAX: 


: DEFINE (BIGGEST (LAMBDA (JJ) (MAX JJ))]) 
VALUE IS... 
BIGGEST 


: BIGGEST (1 44 -9 182 12) 
VALUE IS... 
182 


Finally, we’ll add BOMB to our vocabulary, where it will perform as 
ATOM: 


: DEFINE (BOMB [LAMDA (LIST) (ATOM LIST))) 
VALUE IS... 
BOMB 


: BOMB (HAHA) 


VALUE IS... 
T 
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Chapter Seventeen 
The SSLISP Listing 


Here is the complete listing of SSLISP so you can put your 
computer through its lisping paces: 


10 REM S,S, LISP 

20 GOTO 3450:REM INITIALISE 

30 REM SHEEEEEEEEKREEEEEERESEEEEEEE EEE 

40 AS=MID$(A$,E):AS=LEFTS(A$,LEN(A$)-1) 

50 RETURN 

60 REM REeeeeeeeREEEEEESEEREERERESE SE 

70 PRINT 

80 NN=O 

90 INPUT "3 ",A$ 

100 IF A$="" THEN END:REM JUST PRESS 
<RETURN> TO END RUN 

110 REM LEER ERE RE RE RE SRE R EES ESE REE ES SE 

120 FOR J=1 TO 12 

1390 X(J)=0:Y(J)=0:Z(J}=0 

440 NEXT J 

150 REM SHEEKEEEKREEEEEEEEEEEESEEHEEEEEE 


160 R=0:S=O0:T=O:CFIRST=O0:CSECND=0:EDGE=0 


170 FOR J=1 TO LEN(A$) 

180 BS=MID$(A$,J,1) 

190 IF BS="(" THEN S=S4+1:Z(S)=J:IF T=0 T 
HEN CFIRST=J 

200 IF BS=")" THEN T=T4+#1:Y(T)=J:IF CSECN 
D<>0 AND EDGE=0 THEN EDGE=J-1 
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210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


340 
350 
360 
370 


380 
390 
400 
410 
420 
430 
440 
7 

450 
460 
9 

470 
=10 
480 
1 

490 


IF T=1 AND BS=")" THEN CSECND=J 

IF BS=" " THEN R=R4+1:2X(R)=d 

NEXT J 

IF S=T THEN 800:REM [( ) BALANCE 

IF S<T THEN PRINT " —-> MISSING (" 
IF S>T THEN PRINT " —-> MISSING jr 
INPUT " + ",B$ 

AS=AS$S+B8 

GOTO 120 

IF NWDS=0 OR NN=%4 THEN 370 
MS=LEFTS(A$,X(1)-1) 

FOR J=1 TO NWDS 


IF MS=N$(J) THEN A$=O0$(J)+MIDS(AS$,LE 
N(NS(J))+1) 


NEXT J 

NN=1 

GOTO 1206 

FLAG=0:B$="NIL" 

IF LEFTS(A$,5)="CAR (" THEN FLAG=1 
IF LEFT$(A$,5)="CDOR (" THEN FLAG=2 
IF LEFTS(A$,6)="CONS (" THEN FLAG=3 
IF LEFTS(A$,6)="ATOM (" THEN FLAG=4 
IF LEFTS(A$,4)="EQ (" THEN FLAG=5 

IF LEFT$(A$,6J)="NULL (" THEN FLAG=6 
IF LEFTS$(A$,8)="MEMBER (" THEN FLAG= 
IF LEFTS(A$,5)="MEMQ " THEN FLAG=8 
IF LEFT$(A$,8)="APPEND (" THEN FLAG= 
IF LEFTS(A$,9)="REVERSE (" THEN FLAG 
IF LEFTS(A$,7)="EQUAL (" THEN FLAG=1 
IF LEFTS(A$,6)="LIST (" THEN FLAG=12 
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500 IF LEFTS(A$,8)="DEFINE (" THEN FLAG= 
13 
510 IF LEFTS(A$,6)="ADD1 (" THEN FLAG=14 


520 IF LEFTS(A$,6)="SUB1 (" THEN FLAG=15 


530 IF LEFTS$(A$,7)="ZEROP (" THEN FLAG=1 
6 

540 IF LEFTS(A$,12)="DIFFERENCE (" THEN 
FLAG=17 

550 IF LEFTS(A$,6)="EXPT (" THEN FLAG=18 


560 IF LEFTS(A$,5)="MAX [(" THEN FLAG=19 
570 IF LEFTS$(A$,5)="MIN (" THEN FLAG=20 
580 IF LEFTS(A$,6)="PLUS (" THEN FLAG=21 


590 IF LEFTS(A$,7)="MINUS (" THEN FLAG=2 
2 

600 IF LEFTS$(A$,10)="QUOTIENT (" THEN FL 
AG=23 

610 IF LEFT$(A$,7)="RECIP (" THEN FLAG=2 
4 

620 IF LEFTS(A$,11J)="REMAINDER (" THEN F 
LAG=25 

630 IF LEFTS(A$,7)="TIMES (" THEN FLAG=2 
6 

640 IF LEFTS(A$,10)="GREATERP (" THEN FL 
AG=27 

650 IF LEFTS(A%$,7)="LESSP (" THEN FLAG=2 
8 

660 IF LEFTS(A$,8)="MINUSP (" THEN FLAG= 
29 

670 IF LEFTS(A$,9J)="NUMBERP [(" THEN FLAG 
=30 

680 IF LEFTS(A$,6)="ONEP (" THEN FLAG=31 
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680 IF FLAG>13 THEN 720 

700 ON FLAG GOSUB 840,890,970,1110,1200, 
1330,1380,1510,1700,1760,2000,2130,3300 
710 GOTO 760 

720 IF FLAG>24 THEN 750 

730 ON FLAG-13 GOSUB 2180,2230,2280,2350 
»2560,2600,2790,2820,2870,2920,2960 

740 GOTO 760 


750 ON FLAG-24 GOSUB 3030,3070,3120,3160 
»3200,3250,2280 

760 IF FLAG<>0 THEN GOSUB 780 

770 GOTO 70 

780 REM ** RETURN ANSWER ** 

790 PRINT " VALUE IS..." 

800 IF BS<>"()" THEN PRINT " "SBS 

810 IF BS="()" THEN PRINT " NIL" 

820 RETURN 

B30 REM FFF EEEEEEEEEE EES 

840 REM =2 CAR nding 

850 IF S=2 THEN BS=MIDS(A$,Z(2)+1,X(2)-Z 
(2)) 

860 IF S>2 THEN BS=MIDS(A$,CFIRST,CSECND 
-CFIRST+1) 

870 RETURN 

BBO REM FHKE EEEEEEEEEEE DES 

890 REM *s CDR 7s 

800 GOSUB 840 

910 LB=LEN(B$)+7 

920 BS="("+MIDS(A$,LB,EDGE-1) 

930 IF RIGHT$(B$,2)="))" THEN BS=LEFTS$(B 
$,LEN(B$)-1) 

940 IF MID$(B$,2,1)=" " THEN BS="("4+MIDS8 
(8$,3) 

950 RETURN 
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860 

970 

$80 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
BS,L 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
=ucn 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


1240 
1250 
1260 
1270 
1280 


REM FRR EREKEEEEEEEE EE EEE ES 
REM = CONS ** 
BS=MID$(A$,7,LEN(A$)-1) 
J=0 

IF LEFT$(BS,1J)="(" THEN J=1 

J=J+1 

IF MID$(BS,J,1)="(" THEN 1050 

IF J<LEN(B$) THEN 1010 

BS=" * CONS ERROR *";RETURN 
LB=LEN(B$)-1 
BS="("+LEFTS(BS,J-1)+MIDS(BS$,J+1) 
BS=LEFT$(B$,LB) 

IF RIGHTS$(B$,2)=" )" THEN BS=LEFTS$[( 
EN(B$)-2)+")" 


RETURN 

REM *# EERE EEEEEEEEEEE EEE EE 
REM +s ATOM ** 
AS=MID$(A$,7,LEN(A$)-1) 

J=0 

J=J+1 


IF MIDS$(A$,J,1)=" " OR MIDS(A$,J,1) 
THEN RETURN 

IF J<LEN(A$) THEN 1140 

B$S="T" 

RETURN 

REM FFP EEEEEEEEEE EEE DED 

REM a EQ nding 

E=5:GOSUB 40 

J=0 

J=J+1 


IF MIDS$(A$,J,1J=")" THEN RETURN 
IF MID$(A$,J,1)=" " THEN 1280 
IF J<LEN(A$) THEN 1230 

RETURN 

CS=LEFTS(A$,J-1) 
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1290 AS=MIDS(A$,J+1) 

1300 IF C$S=A$ THEN BS="T" 

1310 RETURN 

1320 REM FFE EEE EEEEE EEE ES 
1330 REM did NULL ** 

1340 IF A$="NULL ()" THEN BS=" * ILLEGAL 
- NULL NEEDS ARGUMENT *" 

1350 IF A$="NULL (())" THEN BS="T" 


1360 RETURN 
1370 REM *# FREER EE EEE EEE EEE EEE 


1380 REM ** MEMBER ** 
1390 CS=MID$S(A$,9) 
1400 J=1 


1410 J=J+1 

1420 IF MID$(C$,J,1)=")" OR MIDS(C$,J,1) 
="(" THEN DS=LEFTS$(C$,J):GOTO 1450 

1430 IF J<LEN(C$) THEN 1410 

1440 RETURN 

1450 J=LEN(D$) 

1460 J=J+1 

1470 IF MID$(C$,J,LEN(D$))=D$ THEN CS$=LE 
FT$(C$,LEN(C$)-1):GOTO 1630 

1480 IF J<LEN(C$) THEN 1460 


1490 RETURN 
1500 REM 88H REESE RHEE EEE EES 


1510 REM ** MEMQ ** 
1520 CS=MID$(A$,7) 
1530 J=0 


1540 J=J+1 

1550 IF MID$(C$,J,1)=" " THEN 1580 
1560 IF J<LEN(A$) THEN 1540 

1570 RETURN 

1580 DS=LEFTS$(C$,J) 

1590 CS=MIDS(C$,J+2) 

1600 CS=LEFT$(C$,LEN(C$)-2)+" " 
1610 J=0 
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1620 J=J+1 
1630 IF MID$(C$,J,LEN(D$))=D$ THEN BS="( 
"4+MID$(C$,J):GOTO 1660 


1640 
1650 
1660 
1670 
(Bs, 
1680 
1690 
1700 
1710 
1720 
)-7) 
1730 
1740 
1750 
1760 
1770 
1780 
2) 
17980 
1800 
1810 
1820 
1830 
1840 
1850 
S(A$ 
1860 
0 
1870 
1880 
1890 
1900 


IF J<LEN(C$) THEN 1620 

RETURN 

BS=LEFT$(BS,LEN(BS)-1)+")" 

IF RIGHTS$(B$,3)=")))" THEN BS=LEFTS 


LEN(B$)-1):GOTO 1670 


RETURN 
REM #8 SEE EEEEEEEEEEEESEEE 


REM ** APPEND ** 
BS=MIDS$(A$,9) 
BS=LEFTS$(BS$,Y(1)-9)+" "+MID$(BS$,Z(38 


BS=LEFTS$(B$,LEN(BS$)-1) 


RETURN 

REM *F SSeS eeeeeeeeee eee se 
REM ** REVERSE ** 

Bg="N 


AS=MID$(A$,11) sAS=LEFTS(AS$,LEN(A$J}- 


CT=0 

J=0 

J=J+13sIF JOLEN(A$) THEN 1920 

IF MID$(A$,J,1)=" " THEN 1850 

IF MIDS(A$,J,1)="(" THEN 1860 

GOTO 1810 
CT=CT+12G68(CT)=LEFTS(A$,J-1) sA$=MID 
J+1):GOTO 1800 

J=J+731IF MIDS(A$,J,2)="))" THEN 198 


IF MID$(A$,J,1)=")" THEN 1910 
IF J=LEN(A$) THEN 1900 

GOTO 1860 
CT=CT+1:G6$(CT)=A$+")":GOTO 1930 
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1910 CT=CT+1:G$(CT)=LEFTS(A8,J) sAS=MIDS$[ 
A$,J+1):GOTO 1800 

1920 CT=CT+1:G68(CT)=A$ 

1930 FOR M=CT TO 1 STEP-1 

1940 BS=BS+G$(M):IF M>1 THEN BS=B$+" " 
1950 NEXT M 

1960 BS="("+BS+")" 

1970 RETURN 

1980 CT=CT+1:G$(CT)=LEFTS(A$,J+1) sAS=MID 
$(A$,J+2):GOTO 1800 

1990 REM FE SSSEKEEEKEEKEEEERERESR EEE EE 
2000 REM ** EQUAL ** 

2010 E=8:GOSUB 40 

2020 M=ASC(A$):IF M>47 AND M<58 THEN 237 
0 

2030 J=0 

2040 J=J+1 

2050 IF MID$(A$,J,2)=")} " THEN J=J+1:60T 
0 1280 

2060 IF MID$(A$,J,3)="J}}" THEN 2100 
2070 IF MIDS$(A$,J,2)="))" THEN 2110 

2080 IF J<LEN(A$) THEN 2040 

2090 RETURN 

2100 C8=LEFTS(A$,J+2) sAS=MID$(A$,J+4]:60 
TO 1300 

2110 CS=LEFTS(A$,J+1) :A$=MID$(A$,J+3) 260 
TO 1300 

2120 REM PERSE ERE EEEEEEE EES 
2130 REM ** LIST ** 

2140 E=7:GOSUB 40 

2150 BS="("+A$e")" 

2160 RETURN 

2170 REM *# FHSS EREREEEEEEEEEE 
2180 REM ** ADD1 ** 

2190 E=7:GOSUB 40 

2200 BS=STRS(VAL(A$) +1) 


180 


2210 
2220 
2230 
2240 


2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 


RETURN 

REM *# SHEED EEEEEEEE EEE EES 
REM ** SUB1 ** 

E=7:GOSUB 40 


BS=STRS$(VAL(A$)-1) 

RETURN 

REM *# EKER EEEEEEE EE EES EE 
REM ** ZEROP ** 

IF FLAG=16 THEN E=8 

IF FLAG=31 THEN E=7 

GOSUB 40 

IF A$="0" AND FLAG=16 OR A$="4" 


FLAG=31 THEN BS$="T" 


2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 


2420 
2430 


RETURN 

REM FFE EEEEEREE EERE EEE 
REM ** TwO ARGUMENTS ** 
E=13:GOSUB 40 

J=0 

J=J+1 

IF MIDS(A$,J,1)=" " THEN 2420 
IF J<LEN(A$) THEN 2380 


AND 


BS=" * ERROR - ONLY ONE ARGUMENT *" 
RETURN 


P=VAL(LEFTS$(A$,J-1]} ) 
Q=VAL(MID$(A$,J+1)) 


2440 IF FLAG=17 THEN BS=STR$(P-Q) sRETURN 


2450 
2460 


2470 
2480 
2490 
2500 
2510 


IF FLAG=23 OR FLAG=25 THEN B=P/Q 


IF FLAG=25 THEN B=INT(.5+Q*(B-INT(B 
))*1000)/1000 


IF FLAG=18 THEN B=P*Q 
IF FLAG=11 AND P=Q THEN B$="T" 
IF FLAG=27 AND P>Q THEN B$="T" 
IF FLAG=28 AND P<Q THEN B$="T" 
IF FLAG=32 THEN B=P-Q 
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2520 IF FLAG=11 OR FLAG>26 THEN RETURN 
2530 BS=STR$(B) 

2540 RETURN 

2550 REM ROEEEEEEEEEEEEEEEEEEEEEEEEE 
2560 REM ** EXPT *# 

2570 E=7:G0OSUB 40 

2580 GOTO 2370 

2590 REM SKEETER EREKEEEEEEEEEEESEEEEE SE 
2600 REM ** MAX (MIN PLUS TIMES) ** 
2610 FS=LEFTS$(A$,3):AS=MIDS(A$,86) 
2620 CT=0:FLAG=0 

2630 IF FS="TIMES" THEN CT=4 

2640 J=0 

2650 J=J+4 

2660 IF MID$(A$,J,1)=" " THEN 2690 
2670 IF J<LEN(A$) THEN 2650 

2680 IF J=LEN(A$) THEN FLAG=4 

2690 P=VAL(LEFTS(A$,J-1)):IF FLAG=0 THEN 
AS=MIDS([A$,U+1) 

2700 IF F8<>"PLUS" AND CT=0 THEN CT=P 
2710 IF FS="MAX" AND P>CT THEN CT=P 
2720 IF FS="MIN" AND P<CT THEN CT=P 
2730 IF FS="PLUS" THEN CT=CT+P 

2740 IF FS="TIMES" THEN CT=CT*P 

2750 IF FLAG=0 THEN 2640 

2760 BS=STRS$(CT) 

2770 RETURN 

2780 REM PEPER ERE REE RE RE RE SESE SEE SE SE 
2790 REM ** MIN ** 

2800 GOTO 2610 

2810 REM RHEKEKESEEKEEEESEEKEEKEKEEEEEEESSE SD 
2820 REM ** PLUS ** 

2830 FS="PLUS" 

2840 AS=MID$(A$,7) 

2850 GOTO 2620 
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2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 


REM FSS EEERERESRER EE EES 
REM ** MINUS ** 

E=8:GOSUB 40 

BS=STRS$(-VAL[(A$)) 

RETURN 

REM *# SHEER EREEE EEE EE ES 
REM ** QUOTIENT ** 
E=11:GOSUB 40 

GOTO 2370 

REM 8#HSHREEEEEEREE EERE EE EEEE 
REM ** RECIP ** 

E=8:GOSUB 40 

IF A$="0" THEN BS=" DIVISION BY 


O ILLEGAL":RETURN 


2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 


B=1/(VAL(A$)) 

BS=STR$(B) 

RETURN 

REM 8244844406446 464084084644646420840644444644%% 
REM ** REMAINDER ** 
E=12:GOSUB 40 

GOTO 23870 

REM £22444 0844444444444444464444% 
REM ** TIMES ** 
FS="TIMES" 

AS=MIDS(A$,8) 

GOTO 2620 

REM £22444 44444644044044444444424% 
REM **® GREATERP *#* 
E=11:GOSUB 40 

GOTO 2370 

REM £26845 448444484%4444444444%44% 
REM ** LESSP ** 

E=8:GOSUB 40 

GOTO 2370 

REM O82 444464442044446444444%¢ 


REM ** MINUSP ** 
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ZER 


3210 E=9:GOSUB 40 

3220 IF VAL(A$)<O THEN B$="T" 

3230 RETURN 

3240 REM FEES EHEEEEEEEEEEEEEEE ED 
3250 REM ** NUMBERP ** 

3260 AS$=MID$(A$,10) 

3270 IF ASC(A$)>44 AND ASC(A$)<58 THEN B 
$="7T" 

3280 RETURN 

3290 REM FERRE EERE HEHE EEE EEE 
3300 REM ** DEFINE ** 

3310 A$S$=MID$(A$,9) 

3320 FS=LEFTS(A$,X(2)-9) 

3330 G$=MID$(A$,X(4)-6) 

3340 J=0 

3350 J=J+1 

3360 IF MID$(G$,J,1)=" " THEN 3390 
3370 IF J<LEN(G$) THEN 3350 

3380 BS=" DEFINE ERROR": RETURN 

3390 GS=LEFTS$(G$,J-1) 

3400 NWODS=NWDS+1 

3410 OS$(NWDS)J=GS:N$(NWDOS)J=FS 

3420 BS=FS$ 

3430 RETURN 

Z440 REM FERRER EEHHEEEEEE HEHE ED 


3450 REM INITIALISE 


3460 CLS 

3470 DIM G$(20),08(20),N$(20),X(12),Y(12 
),Z(12) 

3480 NWDS=0:REM COUNT OF USER-DEFINED 


"NEW WORDS! 
3490 GOTO 70 
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Machine-specific 
listings 
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Commodore 64 
THE AUTO MECHANIC 


1@ REM THE AUTO MECHANIC 

15 POKE 33288,2:POKE 53281,4 

28 PRINT " 

{CLR>” 

3@ PRINT"SO YOU’RE HAVING AUTOMOBILE PRO 
BLEMS. " 


49 PRINT"LET’S SEE IF WE CAN PIN DOWN 
THE TROUBLE..." 

Sf PRINT 

69 PRINT "ENTER A LETTER WHICH DESCRIBES 

PROBLEM: " 

?e@ PRINT 

8a PRINT” 

{OR} A - ENGINE WON’T TURN OVER" 

98 PRINT" 

«CYN} B - ENGINE TURNS, BUT WON’T START 

19@ PRINT" 

{PUR C€ - STARTS THEN STALLS STRAIGHT A 

WAY" 

118 PRINT" 

{GRN} D - CAR RUNS, BUT STALLS A LOT" 

12@ PRINT" 

{BLU} E - CAR RUNS, BUT IDLES ROUGHLY({(W 

HT}>" 

139 GET AS: IF AS<>"" THEN 132 

144 GET AS 


187 


159 IF AS<"A" OR AS>"E" THEN 142 

169 GOSUB 1569 

178 ON (ASC(AS)-64) GOTO 246,586,1290,12 
38,1359 

189 END 

19D REM X33 HEE 

299 REM WON’T TURN OVER 

219 PRINT " 

{OR}WE’LL START BY CHECKING THE BATTERY. 
229 PRINT "TURN ON THE LIGHTS." 

239 PRINT TAB(6)3;"ARE THEY DIM?" 

24@ GOSUB 1526 

254 IF AS="N" THEN 35@:REM BATTERY OK 
264 PRINT "ARE BATTERY CABLES LOOSE OR C 
ORRODED?" 

278 GOSUB 152¢ 

289 IF AS="Y" THEN PRINT "TIGHTEN AND CL 
EAN" 

298 GOSUB 158¢ 

399 PRINT "IS FAN BELT LOOSE?" 

319 GOSUB 1529 

320 IF AS="Y" THEN PRINT TAB(8)3 "TIGHTEN 


THE FAN BELT” 
33@ GOSUB 158¢ 


348 PRINT" JUMPER LEADS OR A PUSH SHOULD 
BE ENOUGH TO START THE CAR”: END 

35@ PRINT "IS THERE LOOSENESS OR CORROSI 
ON AT THE” 

36@ PRINT "STARTER END OF THE BATTERY CA 
BLE" 

3°@ GOSUB 152¢ 

38@ IF AS="Y" THEN PRINT "TIGHTEN AND CL 
EAN THE CONNECTIONS” 

39¢ GOSUB 158¢ 
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4¢e@ PRINT "PUT A PIECE OF METAL ACROSS 
THE" 

41@ PRINT "SQLENOQTD TERMINALS. DOES STAR 
TER WORK?” 

426 GOSUB 152¢ 

43@ IF AS="Y" THEN PRINT "THE IGNITION S 
WITCH IS PROBABLY FAULTY" 

44@ GOSUB 1589 

459 IF AS="Y¥" THEN PRINT TAB(4)5"IT SHOU 
LD BE REPLACED": END 

462 PRINT "DOES STARTER CLICK?" 

4?@ GOSUB 152g 

48@ IF AS="Y" THEN PRINT "THE STARTER MA 
Y BE JAMMED": GOTO S2¢ 

49S PRINT "AS NOTHING HAPPENED, THE SOLE 
NOID 1s" 

S92 PRINT"PROBABLY FAULTY. A PUSH MAY ST 
ART" 

Sig PRINTTAB(12)3;"YOUR CAR. "SEND 

S20 REM STARTER JAMMED 

33@ PRINT" TURN THE IGNITION OFF, AND PUT 
THE CAR” 

54¢@ PRINT"IN A HIGH GEAR. PUSH CAR FOR A 
FOOT OR" 

S58 PRINT "SO TO POP STARTER LOOSE.":END 
569 RETURN 

S7P7G REM HEHEHE KE 

S8a REM TURN OVER, WON’T START 

598 PRINT" 

{CYN}ICHECK WIRES AT POINTS FOR DAMPNESS. 
692 PRINT"IS THERE A CHANCE AREAS ARE DA 
MP?” 

616 GOSUB 152¢ 

629 IF AS="Y¥" THEN PRINT "SPRAY WITH MOTI 
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STURE REMOVAL SPRAY": GOSUB 158¢@ 

63@ PRINT"IS THERE DUST VISIBLE ON THE I 
NSULATING" 

644 PRINT TAB(6);"PART OF THE COIL, OR O 


N THE” 
65% PRINT TAB(11)3; "DISTRIBUTOR CAP?" 


660 GOSUB 152¢d 

679 IF A®="Y¥" THEN PRINT “WIPE COIL SECT 
ION AS WELL AS INSIDE" 

684 IF AS="Y" THEN PRINT TAB(6)3;"AND OUT 


SIDE OF CAP.":GOSUB 158¢ 

699 PRINT "ENSURE ALL WIRES ARE TIGHT AN 
D DRY BEFORE CONTINUING" 

72e@ GOSUB 1589 

718 PRINT "IF CAR STILL DOES NOT START, 
IT IS TIME TOGO CHECK THE SPARK PLUGS: " 
728 GOSUB 158¢ 

73@ PRINT "DOES SPARK FROM THE END OF TH 
E PLUG WIREJUMP 3/8 INCH OR MORE?” 

749 GOSUB 152¢ 

750 IF AS="Y¥" THEN PRINT “THE PLUGS ARE 
FAULTY": GOSUB 158¢ 

76S IF AS="N" THEN 8390 

776 PRINT "ARE PLUGS GREASY?" 

788 GOSUB 152¢ 

798 IF AS="Y¥" THEN PRINT "AN EMERGENCY R 
EPAIR CANNOT BE MADE" 

899 IF AS="Y" THEN PRINT "WHILE PLUGS AR 
E IN THAT STATE.":GOSUB 1589:GOTO 776 
8190 IF AS="N" THEN PRINT “IF THIS IS AN 
EMERGENCY, TRY CLOSING" 

8290 IF AS="N" THEN PRINT "THE GAP TO ABO 
UT HALF NORMAL": GOSUB 1589:GOTQ 919 

839 PRINT"IS THERE ANY SPARK AT ALL?" 
849 GOSUB 1529 


85@ IF AS="Y" THEN 779 

869 GOSUB 879:END 

879 PRINT"CHECK ROTOR, COIL AND DISTRIBU 
TOR CAP" 

88 PRINT"FOR CRACKS. IF THERE AREN’T AN 
Y THERE," 

899 PRINT"IT LOOKS AS IF THE POINTS OR C 
ONDENSER IS YOUR PROBLEM" 

999 PRINT"A REPAIR MAY WELL BE NEEDED":R 
ETURN 

919 PRINT"DO YOU HAVE GAS IN THE TANK?" 
929 GOSUB 1526 

93@ IF AS="N" THEN PRINT"FILL TANK AND T 
RY AGAIN": GOSUB 1589 

949 PRINT "ARE ALL FUEL AND VACUUM LINES 
SECURE?" 

95% GOSUB 1529 

969 IF AS="N" THEN PRINT"ATTEND TO THESE 
AND TRY AGAIN":GOSUB 1589 

978 PRINT" REMOVE THE AIR CLEANER FROM 
THE" 

989 PRINT TAB(13); "CARBURETOR": GOSUB 158 

@ 

999 PRINT"DOGES IT LOOK DRY?" 

19@@ GOSUB 1529 

1919 IF AS="N" THEN 1989 

192 PRINT"TURN THE ENGINE OVER A FEW TI 

MES WITH" 

193G PRINT"YOUR HAND SEALING THE AIR INT 

AKE":GOSUB 158d 

194@ PRINT "IS YOUR HAND WET WITH GAS?" 
195@ GOSUB 1529 

1966 IF AS="N" THEN PRINT"UNSCREW GAS CA 

P IN CASE AIR VENT IS PLUGGED" 

1978 IF AS="N" THEN PRINT"THE FUEL PUMP 
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MAY NOT BE WORKING”: GOSUB 999:END 

19898 PRINT"HAVE YOU BEEN CRANKING THE ST 
ARTER A" 

1¢9@ PRINT"LOT IN THE PAST FEW MINUTES?" 
1196 GOSUB 1529 

111@ IF AS="N" THEN 11592 

112@ PRINT "WAIT FOR A MINUTE OR SO, THE 
N HOLD THE" 

1139 PRINT "GAS PEDAL STEADILY ON THE FL 
OOR WITHOUT” 

114@ PRINT"PUMPING IT. THIS SHOULD GET Y 
OU GOING": END 

1156 PRINT" THE ENGINE MAY WELL BE FLOODE 
D AT THIS" 

1166 PRINT"POINT AND THE FLOAT VALVE STU 
CK OPEN.":GOSUB 1589 

1178 PRINT" TAP THE SIDE OF THE CARBURETO 
Rr" 

118@ PRINT"THEN TRY STARTING PROCESSES A 
GAIN" 

LLPHD REM HXKKKKHKHKKEKHHKKEKKEHKKEKEE 

129@ REM STARTS, THEN STALLS 

1216 PRINT" 

{PUR}THIS SUGGESTS A FAULTY BALLAST RESI 
STOR WHICH SHOULD BE REPLACED": END 

L22EG REM KXEHHKKKEHKKHKKEKEEKKEKKKKEKE 

1236 REM RUNS, STALLS A LOT 

124@ PRINT” 

{GRN3THE PROBLEM IS EITHER CAUSED BY:" 
125@ PRINT TAB(?7);"SHORTING (OR LOOSE) W 
IRES; " 

126¢@ PRINT TAB(7);"A WEAK SPARKs OR" 
1278 PRINT TAB(7)3"A FAULT IN THE FUEL S 
YSTEM" 

1286 PRINT"CHECK FIRST FOR LOOSE OR SHOR 
TING WIRES": GOSUB 158¢ 
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1299 PRINT "IF THEY ARE NOT OK, REPAIR. 
IF THEY ARE IT COULD BE THE SPARK PLUGS" 
139@ GOSUB 87¢ 

131@ PRINT"THERE IS A FINAL CHECK WE CAN 
TRY ON” 

1324 PRINT"YOUR SPARK PLUGS":GOSUB 158q 
1339 GOTO 1366 

LS4S REM XXHKKKHKKK KKK KKK H KKK HERE 

1359 REM RUNS, ROUGH IDLE 

136@ PRINT" 

€BLU}IT COULD WELL BE THAT ONE OR MORE O 

| Hig 

1379 PRINT"YOUR SPARK PLUGS ARE FAULTY. 
":GOSUB 158@¢ 

1389 PRINT"DISCONNECT THEM ONE AT A TIME 
. THE ONES" 

1399 PRINT"WHICH DO NOT CAUSE THE ENGINE 
IDLE To" 

149@ PRINT"DROP ARE FAULTY. CHECK THESE 

THEN" 

1419 PRINT"RETURN TQ THE SYSTEM. ":GOSUB 
1589 

1424 PRINT"DID TEST SHOW ANY PLUGS WERE 

FAULTY?" 

1439 GOSUR 1529 

1449 IF AS="Y" THEN PRINT"REPLACE ALL PL 

UGS IF YOU CAN, OR JUST" 

1459 IF AS="Y" THEN PRINT"THE ONES WHICH 
TESTED FAULTY":GOSUB 1598 

1469 PRINT"THE MOST COMMON CAUSE OF A BA 

D IDLE,” 

1479 PRINT “ASSUMING THAT THE PLUGS ARE 

OK, IS THAT" 

1489 PRINT"YOUR GAS MIXTURE IS SET TOO R 
ICH" 
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1499 PRINT"SO YOU SHOULD ADJUST THIS":EN 
D 

1599 PRINT"ADJUST THE IDLE SPEED-SCREW O 
N THE THROTTLE LINKAGE”: END 

LBLD REM KHKKKKKKKEKKKEKHHE KEKE EEE 

152@ PRINTTAB(146)3;"(¥ - YES, N - NO)?" 
153@ GET AS: IF AS<>"" THEN 15396 

1546 GET AS 

1i55@ IF AS<>"Y¥" AND AS<>"N" THEN 15498 
156@ PRINT TAB(22)3;" > OK "SAB3" <" 
1579 REM ¥*+*+** 

1589 FOR T=1 TO 1666:NEXT T 

1599 PRINT 

1689 RETURN 


MEDICI 


1@ REM MEDICI- PERSONAL CHECKUP 

26 POKE 53289,9:POKE 53281,9:PRINT " 
{CLR} CWHT3” 

36 GOSUB 1259 

4@ PRINT " 

{PURSA - I AM BADLY OVERWEIGHT" 

So PRINT "B - IT AM FAIRLY OVERWEIGHT" 

6@ PRINT "C - IT AM SLIGHTLY OVERWEIGHT" 
70 PRINT "D - MY WEIGHT IS ABOUT RIGHT" 
86 PRINT "“E - I AM THINNER THAN I SHOULD 
BE 

{WHT3" 

9°@ GOSUB 1176 

14@ WEIGHT=5* (ASC (AS) -68) IF AS="E" THEN 
WEIGHT=98 

11@ PRINT WEIGHT 

126 GQSUB 125¢ 

139 PRINT "I ENGAGE IN EXERCISE, THAT" 


14@ PRINT"RAISES MY HEARTBEAT TO 128 OR 

MORE, ” 

159 PRINT "FOR AT LEAST THE FOLLQWING NU 
MBEF" 

164 PRINT TAB(S);"HQUPS A WEEK: " 

178 PRINT 

1aa PRINT " 

{CYNIA - LESS THAN A QUARTER” 

19@ PRINT "B - MORE THAN A QUARTER, UP T 


a THREE-QUARTERS" 
264 PRINT "C - FROM THREE-QUARTERS OF AN 
HOUR UP TQ QNE AND A HALF" 


219 PRINT "D 


FROM ONE AND A HALF TO 
TWQ AND A HALF” 

229 PRINT "E MORE THAN TWO AND A HALF 

HOURS 

CWHT?" 

238 GOSUB 11798 

2499 EXERCISE=S* (ASC (AS) -63)-S:IF AS="A" 

THEN EXERCISE=6 

259 PRINT EXERCISE 

2690 GOSUB 1254 

278 PRINT "WHEN DRIVING: ": PRINT 

280 PRINT ” 

{BLU3A - I HARDLY EVER WEAR A SEAT BELT" 
2°99 PRINT "B - I WEAR A SEAT BELT ARQUND 
A QUARTER OF THE TIME” 

344 PRINT "C I WEAR A SEAT BELT EVERY 


SECOND JOURNEY" 

319 PRINT "D - I WEAR A SEAT BELT MOST, 
BUT NQT ALL TRIPS" 

329 PRINT "E - I ALWAYS WEAR A SEAT BELT 


{WHT3” 

338 GOSUB 1176 

349 SEATBELT=2* (ASC (AS) -65) 
359 PRINT SEATBELT 
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366 GOSUR 12506 

S74 PRINT "I AM CONSCIOUS OF NUTRITION A 

ND TRY TO EAT HEALTHILY:" 

332 PRINT 

399 PRINT ” 

{GRN3A - ALL THE TIME" 

49 PRINT "B - NEARLY ALL THE TIME" 

419 PRINT "C A FAIR PROPORTION OF THE 

TINE" 

424 PRINT "D 

439 PRINT "E 
{WHT >" 

449 GOSUB 1174 

4598 DIET=-ASC (AS) +69 

469 PRINT DIET 

476 GOSUB 1259 

489 PRINT "SMOKING (A CIGAR COUNTS AS A 
CIGARETTE)” 

4998 PRINT 

5394 PRINT " 

{OR3A - NOT AT ALL” 

S19 PRINT "B LESS THAN 15 CIGARETTES A 
DAY" 

526 PRINT "C - 15 TQ 25 CIGARETTES A DAY 


53@ PRINT "D - 26 TO 42 CIGARETTES A DAY 
54@ PRINT "E - MORE THAN 42 CIGARETTES A 
DAY 

{WHT 3” 

550 GQSUB 1176 

564 SMOQKING=-7¥ (ASC (AS) -65) 

5S?@ PRINT SMOKING 

S84 GOSUB 1256 


FROM TIME TQ TIME” 
HARDLY AT ALL 
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Sos 


PRINT "ALCOHOL- HOW MANY DRINKS 


AVERAGE) DO YOU HAVE EACH DAY?” 
694 PRINT 

610 PRINT " 

{LT RED3}A - NONE” 

626 PRINT "B - LESS THAN 3" 

639 PRINT "C - 3 TO 6" 

6499 PRINT "D - 7? TQ 9" 

65@ PRINT "E - MORE THAN 9 

(WHT 3" 

664 GOSUB 117¢ 

678 DRINK=-3¢4 

6389 IF AS="A" THEN DRINK=@ 

699 IF AS="B" THEN DRINK=1 

7868 IF AS="C" THEN DRINK=DRINK/5 
718 IF AS="D" THEN DRINK=DRINK/2 
724 PRINT DRINK 

738 GOSUB 1256 

749 PRINT "IN GENERAL, HOW STRESSFUL 


LD YOU SAY"; 


758 PRINT "YOUR LIFE HAS BEEN IN THE 
T 6&6 MONTHS" 

768 PRINT 

778 PRINT " 

{LT GRN3A - EXTREMELY STRESSFUL" 
789 PRINT "B - FAIRLY STRESSFUL” 
2799 PRINT "C - SLIGHTLY STRESSFUL" 
899 PRINT "D - NUETRAL” 

8194 PRINT "E - NOT STRESSFUL 
{WHT>” 

829 GOSUB 117¢ 

839 SRESS=INT(2.5#(ASC (AS) -69) 
849 PRINT SRESS 

8350 GOSUB 139@:PRINT " 


tCLR"” 
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(ON 


wou 


PAS 


8469 PRINT "PERSONAL ASSESMENT FROM MEDIC 
I:" 

878 PRINT 

889 PRINT TAB(8) 3 "WEIGHT: "WEIGHT 

899 PRINT TAB(6); "EXERCISE: "EXERCISE 

998 PRINT TAB(4)3"CAR SAFETY: "SEATBELT 
919 PRINT TAB(S)5 "NUTRITION: "DIET 

928 PRINT TAB(7)5 "SMOKING: "SMOKING 

939 PRINT TAB(7); "ALCOHOL: "DRINK 

949 PRINT TAB(8); "STRESS: "SRESS 

9359 GOSUB 1390 

96S ANT=WEIGHT+tEXERCISE+SEATBELT+DIET+SmM 
OKING+DRINK+SRESS 

976 GOSUB 1340: PRINT 

989 PRINT " YOUR RAW RATING IS "ANT:PR 
INT 


999 PRINT " ON A SCALE WHERE ZERO IS AV 
ERAGE, " 
1988 PRINT"THE LOWEST RATING IS BELOW -8 
@, AND" 


1919 PRINT " THE HIGHEST IS OVER 39" 
1926 GOSUB 1399: PRINT 

1939 IF ANT<6 AND ANT>-6 THEN AS="AVERAG 
E";Ls="69 TO 66 65 TO 7i" 

1949 IF ANT<-S AND ANT>-21 THEN AS="BELOQ 
W AVERAGE": LS="68 TQ 66 63 TO 71" 

195@ IF ANT<-2@ THEN A®S="POOR":L%="69 OR 
LESS 65 OR LESS" 

1969 IF ANT<-45 THEN AS="VERY POOR" 

19708 IF ANT<-68 THEN AS="VERY, VERY POOR 
1989 IF ANT>S AND ANT<15 THEN AS="GOOD": 
LS="74 TO 89 79 TO 85" 

199@ IF ANT>14 THEN AS="EXTREMELY GOOD": 
L$S$="81 PLUS 86 PLUS” 
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1196@ 


TATUS 


1119 
112¢ 
11390 
11496 
115¢ 
1164 
1176 
1189 
1199 
1260 
1219 
1226 
123¢ 
1240 
125¢ 
1269 


PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
END 


“THIS INDICATES YOUR HEALTH S 
IS ";AS 

“LIFE EXPECTANCY: " 

TAB(3)5 "MALE FEMALE" 

TAB(3)5L& 


REM KHEKKHEKKKHEKHKE KKK KH 
REM ACCEPT INPUT 
GET ASIF AS<>"" THEN 1189 


GET AS 


IF AS<"A" OR AS>"E" THEN 1199 


PRINT: 
RETURN 


PRINT TAB(12)5 "OK "5 AS 


REM KHEKEKKKKHKKKEKKLHKKKEKKEHKEK 
REM DELAY/SPACE OUT 


FOR J= 


PRINT 


{CLR}" 
1270 PRINT: PRINT: PRINT: PRINT 


1286 


OSEST 


1299 


PRINT 


PRINT 


1 TO 196@:NEXT J 


"WHICH OF THE FOLLOWING IS CL 
TO THE TRUTH (SELECT ONE):" 


1390@ FOR J=1 TO S49G: NEXT J 


1319 RETURN 


FUZZY RITA 


1@ PEM FUZZY RITA 


2@ GQSUB 
38 GOSUB 
46 GOSUB 
5@ GOSUB 
66 GOSUB 


1388:;REM INITIALISE 

1169: REM OUTPUT OPTIONS 
125@G:REM DISCRIMINATION OPTIONS 
144: REM QUESTION USER 

484:REM MAKE DECISION AND 


UPDATE KNOWLEDGE BASE 


65 GOSUB 26@6G:REM MAKE SOUND 

7a PRINT" 

{PUR}PRESS <RETURN> TO CONTINUECWHT3"; 

ea IF *$<>"" THEN INPUT I%8:GQTQ 5S 

9& PRINT" 

{PUR} TRAINING” 

194 PRINT"GR ANY KEY THEN <RETURN> TO US 

E RITA 

CWHT3"5 

119 INPUT X#: GOTO 5a 

12a END 

L3G REM HHEKEKEHKHKKHKKHHEKELHEE HE KEK EKEEEEK 

14@ REM QUESTION USER 

1590 PRINT" 

{CLRF” 

164 PRINT" 

{PUR}HERE ARE THE SUBJECTS I CAN 
DISCRIMINATE BETWEEN: " 


174 PRINT 

18@ FOR J=1 TO TT 

194 PRINT" > "SAB(I) 
246 NEXT J:PRINT " 

(WHT 3" 

21a GOSUB 1L5¢¢ 

224 IF X$="" THEN PRINT " 


{PUR} THINK OF ONE, THEN PRESS <RETURN><{W 
HT3" 

239 IF X#8<>"" THEN PRINT" 

{PUR}I AM READY NOW TO DETERMINE WHICH O 
NE YOU HAVE{WHT}”" 

249 IF XS="" THEN INPUT XS 

259 ADD=.5 

269 FOR J=1i1 TO DQ 

278 ADD=ADD+ADD 

286 GOSUB 159a 
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298 IF X#<¢>"" AND TT>2 THEN 399: REM 
CHECK IF QUESTION CAN BE JUMPED 

30a PRINT" 

{PUR} ENTER A NUMBER FROM" 

316 PRINT"1 (TRUE) TQ @ (FALSE) ($ TO EN 

D RUN)" 

329 PRINT: PRINT E#(3)5" 

{WHT 3" 

33@ INPUT HS: IF HS="$" THEN PRINT: PRINT 

{PURS THANK YOUCWHT3": PRINT: END 

34@ C(I) =VAL (HS?) 

S58 CLIY=ADD¥C LI) 


368 NEXT J 

378 RETURN 

SBA REM HHH KH KKK HHH HEH HK KKH HK KK KKH HE 

399 REM CHECK IF QUESTION CAN BE 
JUMPED 

469 JUMP=1 

$196 FOR W=1 Ta TT 

420 IF ABS(R(W,J)-B(1,3))>.7 THEN JUMP=%3 

43a NEXT W 

449@ IF JUMP=9 THEN 396 

45a CCIUMPY=B(W,I) 

469 GOTO 3698 

BPD REM HHEKKKKEKE KKK HHL KKK EKER HKHKHE 

434 REM MAKE DECISTON 

49a FOR J=1 TO TT 

5O@9 D(JVEGILE(JHSiF(J.=G 

Sig NEXT J 

S2@ ADD=.5 

S36 FOR J=1 TO TT 

54@ ADD=ADD+tADD 

S5@ FOR ¥=1 TQ De 
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56S REM PLAY WITH VALUES IN NEXT THREE 
LINES FOR MOST EFFICIENT RESULTS 

S78 IF C(X)=B(I,X) THEN D(J=HD(I) +1 

58a IF ABS(C(X)-B(JI,X))<.6%ADD THEN E(J) 

=E(J)+.4 

599 IF ABS(C(X)-B(J,X))<1.2*¥ADD THEN F(t 

Y=F(JV+.1 

6998 NEXT X 

6198 NEXT J 

626 AL=1:°:A2=1:2:A3=1 

639 Fi=1:F2=1:F3=1 

649 FOR J=1 TQ TT 

650 IF D(J)>F1 THEM Fi=D(JI) I A1L=3 

660 IF Et(J)>F2 THEN F2=E(J):A2=J 

678 IF F(J)>F3 THEN F3=F (J): A3S=I 

689 NEXT J 

69S REM *# ANNOUNCE RESULT ** 

789 PRINT 

7198 CFLG=9 

724 PRINT" 

{PLRITHE MOST LIKELY RESULT IS "jZAS(A1L) 

73@ IF A2<oA1 THEN PRINT"THE NEXT MOST L 

IKELY IS "SAS{A2Z) > CFLAG=1 

749 IF A3<>A2 AND AZ“ >A1L THEN PRINT" THE 

NEXT MOST LIKELY IS "3 A%(A3) : CFLAG=2 

75a PRINT 

768 PRINT"IS THE MOST LIKELY RESULT CORR 

ECT (Y OR N) 

{WHT "3 

??8 INPUT FS: FS=RIGHTS(FS, 1) 

788 IF FSsi>"¥" AND FSS >"N" THEN 776 

799 IF Fee r"y" AND XS<>"" THEN RETURN 

866 IF FS="Y" THEN 98a 

81g IF TT=2 AND Al=1 THEN Al=2:GOTQ 989 

824 IF TT=2 THEN Al=1:GOTO 98g 

30 IF CFLG=@ THEN 899 
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846 
{PUR 


85d 
B6Gi 
876 
88s 
89g 
9SD 
91D 
926 
936 
946 
{PUR 
9390 
96d 
97D 


9386 
998 
(Al, 
1SGe 
1G1g@ 
1926 
1G3e 
1g4g 
1954 
1968 
1B7G 
1geg 
199 
1196 
111g 
1126 
1136 


PRINT" 

3IS MY SECOND CHOICE CORRECT 
(¥ OR N) CWHTF"5 

INPUT FS: FS=RIGHTS(FS, 1) 

IF FS="N" THEN 89d 

IF CFLG=1 THEN A1=A2:GOTO 98¢ 

IF CFLG=2 THEN A1=A3:GOTOQ 989 

GOSUB 159 

FOR J=1 TO TT 


PRINTI3"- “3 AB(I) 

NEXT J 

PRINT 

PRINT" 

JWHICH IS THE CORRECT OQNE{WHT}" 

INPUT Al 

IF Al¢<i OR ALDTT THEN 959 

REM %* EDUCATING RITA ¥¥ 
(UPDATE KNOWLEDGE BASE) 

FOR J=1 TO Da 


IF B(A1,3J)<>@ THEN Bt(A1, J) =(C(I)+5S*B 


J))/6 

IF BtA1,3J)=G THEN Bt(A1,3)=C(I) 
B(AL, JV=INT(ISG#B(A1L,IJ)I)I/1G 
NEXT J 

PRINT 

IF Us="" THEN RETURN 


FOR J=1 TO TT 
PRINT: GOSUB 1590 
PRINT AS(J) 

PRINT 

FOR K=1 TO D@ 
PRINT ES@(K)53;B(J,K) 
NEXT K 

NEXT J 

PRINT 
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1148 RETURN 

LASSE REM HHH HHEEE EK KKKEK KER EKE 

1166 REM OUTPUT QPTIONS 

1176 TT=% 

118@ TT=TTt+1 

119°@ GOSUB 159@ 

1299 PRINT” 

{PURJENTER OUTPUT OPTION NUMBER”"TT" 

(PRESS <RETURN> TO END) {WHT?" 

12196 INPUT A®(TT) 

1226 IF AS(TT)="" QR TT=5i THEN TT=TT-1: 

RETURN 

12398 GOTO 1184 

L294 REM HHEEKKE KEKE KEKE EKHKEKKEKEEK 

1259 REM DISCRIMINATION QUESTIONS 

126@ PRINT" 

{CLRI{PUR}"” 

1278 FOR J=1 Ta TT 

1284 PRINT A(IJ) 

1298 NEXT J 

1368 DQ=G 

i3ig D@=Darl1 

13208 GOSUB 15966 

133@ PRINT" 

{PURSENTER QUESTION NUMBER "D@: PRINT" 
(PRESS <RETURN> TQ END) €WHT}3” 

1344 INPUT E@(De@) 

135@ IF ES(D@)="" GR DG=51 THEN D@=Da-1: 

RETURN 

1369 GOTO 1319 

LSPA REM KXKHHKKK HHH KKK HK KKK EK KKKE KEES 

138@ REM INITIALISATION 

1398 PRINT" 

{CLR3":POKE 53289,4:POKE 53281,¢4 
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149@ REM REDUCE ARRAYS IN NEXT LINE IN 
ACCORDANCE WITH YOUR NEEDS 

1419 DIM AS(5O@),B(5G,59),C(5@) ,D(SG) , ES 

54),F(58),G(5@) 

1426 xs="" 

143@ PRINT" 

(PUR}PRESS ANY KEY, THEN <RETURN> IF you 

144@ PRINT"WANT TQOSEE UPDATED KNOWLEDGE 

BASE" 


14354 PRINT" AFTER EACH RUN; JUST PRE 
ss" 

196@ PRINT" <RETURN> IF YOU DON’T 
{WHT3" 


14708 INPUT US 
1480 PRINT" 
{CLR}" 

1494 RETURN 
15998 PRINT" 


----{WHT3" 

131@ RETURN 

2499 SID=54272 

291@ FOR Li=@ TQ 23 
28626 PQKE SIDtLi,@ 
29390 NEXT L1 

2¢4@ POKE SIDt24,?7 
29508 PQOKE SIDtS,15 
28468 POKE SID+t+6,55 
2878 FOKE SID+4,33 
298@ FOR Li=1 TO 4@ STEP 4 
29°89 POKE SID+ti,Li 
21906 FOR L2=1 Ta 14 
2119 NEXT L2,L1 
2i2ed POKE SID+é6,4 
2139 RETURN 
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SCALING 


i@ REM SCALING 

29 DIM X(5@),2'5@) 

39 PRINT" 

{CLR#” 

49 INPUT “HIGHEST VALUE";A 
59 INPUT "LOWEST VALUE";B 
69 A=At. GGL 

7a B=Bt.GgG1 

89 C=(A-B)/59g 

9G ¥(G)=B 

19@ FOR J=1 TO 5@ 

110 X¢(J=X(IJ-1)+C 

12@ 2(J)=I3/5¢G 

13@ PRINT Z2(J),x*%(I) 

149 NEXT J 

15@ DFF=(X(2)-X(1))/2 

169 COUNT=9 

178 COUNT=COUNT?+ 1 

189 PRINT“ENTER VALUE"; QS 
199 INPUT @3% 

299 IF @as="" THEN END 

2198 Q=VAL (Qs) 

226 IF @<B OR @>A THEN 186 
23¢0 FOR J=1 TO 5G 

249 IF ABS(@-X¢(3))<DFF THEN PRINTCOUNT;" 
—-"532Z¢7) 

259 NEXT J 

266 GOTO 176 
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HASTE 


1@ REM HASTE 

26 DIM AS(255),BS(255) :F=9 

39 PRINT" 

{(CLR}":POKE 53280,9:POKE 53281,9 

AD REM XHXHHKKHHKKHKKHKHHKK HHH HH HH 

58 FLAG=o 

68 DS$="": INPUT" 

{PUR}> "3;DS:PRINT"{WHT3" 

76 IF DS="" THEN END 

8G IF LEFTS(D%,1)="?" THEN 29a 

9G E=G 

196 E=E+1 

11@ IF MIDS(DS,E,1)="*" THEN 14g 

126 IF EXLEN(D$S) THEN 1990 

136 PRINT"INVALID ENTRY":GOTO 5 

149 IF FLAG=3 THEN RETURN 

15@ F=F+t1:1F F=256 THEN END 

169 AS(F)=LEFTS(DS,E-1) 

17G BS(F)=MIDS(DS,E+1) 

186 GOTO 5¢ 

19D REM X6R RHEE HEHEHE IEEE: 

268 REM INTERROGATE 

218 FLAG=4: TRUE=9 

229 IF RIGHTS(D$,1)="/" THEN FLAG=3 
23@ FOR J=1 TO LEN(D®)-5 

246 IF MIDS(D%,J,5)=" AND “ THEN FLAG=15 
: TRUE=J 

256 NEXT J 

269 IF FLAG=5 THEN 419 

276 IF LEFTS(D%,3)="?/%" THEN FLAG=1 
289 IF LEFTS(D$,4)="?/¥/" THEN FLAG=2 
299 IF FLAG=3 THEN GOSUB 99:FS=MIDS(D%,2 
,E-2) 

398 IF FLAG=1 THEN F#=MIDS(D#,4) 
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319g E=0a 

329 E=E+ti 

338 IF AS(E)="" AND FLAG=4 AND TRUE=8 TH 

EN PRINT"FALSE" 

344 IF AS{(E)="" THEN 529 

35@ IF FLAG=4 AND "?P"4AS(E) +"¥"+BS(E) =DS 
THEN PRINT" TRUE": TRUE=1 

369 IF FLAG=3 AND FS=AS(E) THEN PRINT BS 
(EB) 

372 IF FLAG=2 THEN PRINT AS(E)3"*"3 BS(E) 

389 IF FLAG=1 AND FSR=BS(E) THEN PRINT AS 
(E) 

399 IF E<¢255 THEN 329 

FDA REM KHHEHKKKKKKKKKKKKKKHEKHKKKE 

418 FS=MIDS (DS, 4, TRUE-4) : GS=MIDS(DE, TRUE 

+7) 

429 E=¢ 

4390 E=E+1 

445@ IF AS(E)="" THEN 526 

45a IF BS(E)=FS% THEN 476 

969 IF E¢255 THEN 439 

473 H=0 

486 H=Htl 

490 IF BS(H)="" THEN 468 

596 IF BS(H)=GS AND AS(E)=AS(H) THEN PRI 
NT AS(E) 

Sig IF H<255 THEN 489 

529 PRINT TAB(S)3;" > END OF ANSWER < " 
S3@ GOSUB 269@6:GOTO 5¢ 

29968 SID=54272 

2619 FOR Li=G TQ 23 

2920 POKE SIDtLi,@ 

293@ NEXT Li 

24649 POKE SID+t+24,15 

293598 POKE SIDtS,15 

266@ POKE SID+t6,255 
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2579 
2938 
2996 
2198 
2119 
2126 
2136 
2146 
215¢ 
2166 
2176 
218¢ 


POKE SID+4,17 
FOR Li=48 TO 229 STEP .7 
POKE SID+t1,L1 


NEXT Li 


FOR Li=28 TO 294 
POKE SID+t1,L1 


NEXT Li 


FOR Li=29@ TO 28 STEP -1 
POKE SID+t1,L1 


NEXT Li 


POKE SID+1,@ 


RETURN 


EASLE 


ig REM EASLE 
28 PRINT" 
{CLR}":POKE 53286,G:POKE 353281,¢ 
3S DIM %(4G) ,¥ (48) ,2(48) 

4a PRINT 


Sa AS=""S INPUT 


{WHT 3 "5 AS 
AS="" THEN END 

FA REM HHKHKKKKEKKKEHK KH HK KEKE KEKHE EEE 
88 PRINT" 
{PUR}"3;:FOR J=1 TQ 4G 
PA X(JVEGLV (JI HG Z(IJ)V=HG 
1g@ NEXT J 
LLB REM HHKKKKEKHKK KEKE KEKE KEK KEE KEEE 

12@ R=G:S=G:T=G: CFIRST=G: CSECND=9: EDGE=& 
13@ FOR J=1 TO LEN(AS) 

149 BS=MIDS(AS,JI,1) 

15@ IF BS="(" 
HEN CFIRST=J 


6@ IF 


a> 


THEN S=Sti:Z(S)=J LIF T= T 
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169 


IF BS=")" THEN T=Tti: Y(T)=I:IF CSECN 


D<>@ AND EDGE=98 THEN EDGE=J-1 


178 IF T=1 AND BS=")" THEN CSECND=J 

180 IF BS=" " THEN R=Rt1:2X(R)=IJ 

199 NEXT J 

298 IF S=T THEN 26@:REM ( ) BALANCE 

216 IF S<T THEN PRINT " -> MISSING (" 
226 IF S>T THEN PRINT " -> MISSING )" 
239 INPUT "> 

{WHT3 "3 BS:PRINT "{PUR3"; 

249 AS=ASt+BS 

25a GOTO 8@ 

266 FLAG=9 

276 IF LEFTS(AS,5)="CAR (" THEN FLAG=1 
289 IF LEFTS(AS,5)="CDR (" THEN FLAG=2 
29a IF LEFTS(ASG,6)="CONS (" THEN FLAG=3 
399 IF LEFTS(AS,6)="ATOM (" THEN FLAG=4 
3190 IF LEFT#(AS,4)="EQ (" THEN FLAG=5 
32@ IF LEFTS(AS,6)="NULL (" THEN FLAG=6 
3398 ON FLAG GOSUB 429,479,556, 699,789,92 
g 

346 IF FLAG<>@ THEN GOSUB 369 

358 GOTQ 49 

369 REM *¥* RETURN ANSWER ** 

378 GOSUB 499696: PRINT" VALUE IS..." 
389 IF BS<>"()" THEN PRINT" “;BS 

399 IF BS="()" THEN PRINT" NIL” 

49a RETURN 

ALG REM HEKKHEKKKHEKHEK HK KKEEKKE KEKE EE 

429 REM %% CAR ¥*¥ 

439 IF S=2 THEN BS=MIDS(AG,Z(2)+1,X%(2)-2 
(2)) 

4996 IF S>2 THEN BS=MIDS(AS, CFIRST, CSECND 
-CFIRST+1) 

454 RETURN 
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466 
47D 
489 
49D 
SIP 
S1G 


REM %X XH HHH HHH HHH HHI 
REM ¥% CDR *¥ 

GOSUB 429 

LB=LEN (BS) +7 

BS=" ("+MIDS(AS,LB, EDGE-1) 

IF RIGHTS(B%,2)="))" THEN BS=LEFTS(B 


$, LEN(BS)-1) 


S26 


(BS, 


538 
54g 
55d 
569 
S7G 
S8@ 
59D 
696 
61a 
629 
630 
649 
659 
669 


IF MIDS(BS,2,1)=" " THEN BS="("4+mMIDS 
3) 


RETURN 

REM HHH KEK K KK HK KH KKH HHH HHH HH 
REM %* CONS *%* 
BS=MIDS (AS, 7, LEN( AS) -1) 

J=6 

IF LEFTS(BS,1)="(" THEN J=1 
J=I+1 


IF MIDS(BS,J,1)="(" THEN 6304 

IF J<LEN(BS) THEN 59 

BS=" > CONS ERROR <": RETURN 
LB=LEN(BS)-1 
BS="("+LEFTS( BS, J-1) +MIDS( BS, IJ+1) 
BS=LEFTS (BS,LB) 

IF RIGHTS(BS,2)=" )" THEN BS=LEFTS#(B 


$,LEN(BS)-2)+")" 


676 
689 
699 
78D 
716 
728 
73D 
bY (is 
74D 
7359 
768 
?P?7?D 


RETURN 
REM KHEKKHEKKHEHK KKK KK KKEK KEK HEKKH KE 
REM %%X ATOM H* 


AS=MIDS (AS, 7, LEN (AS) -1) 

J=9: BS="NIL" 

J=I+1 

IF MIDS(AS,J,1)=" " OR MIDS(AS,JI,1)= 
THEN RETURN 

IF J<LEN(AS) THEN 726 

BS="T" 

RETURN 

REM KHEKKHKHK KKK KKK KKK K EK HEHK EHH H 
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78S 
79S 
BID 
814 
829 
8308 
840 
85a 
86g 
37D 
88S 
89S 
9BS 
91S 
9295 
936 


946 
NUL 
9350 
96g 
4AGSA 
46196 
4G25 
4938 
4S4G 
49359 
4968 
4D7D 
49389 
AGIOS 
4199 
4119 
4136 
91496 
4159 


REM ¥¥ EQ ¥* 
AS=MIDS(AS, 5) 
AS=LEFTS (AS, LEN(AS) -1) 
J=@:BS="NIL" 

J=I+1 

IF MIDS(AS,J,1)=")" THEN RETURN 
IF MIDS$(AS,J,1)=" " THEN 879 
IF J<LEN(AS) THEN 828 

RETURN 

CH=LEFTS (AS, 3-1) 
AS=MIDS(AS, J+1) 

IF C®=A% THEN BS="T" 

RETURN 

REM XXX XK KKH H HHI 
REM ¥% NULL ¥% 

BS="NIL" 


IF AS="NULL ()" THEN PRINT" ILLEGAL 


L NEEDS ARGUMENT": BS="" 

IF AS="NULL (())" THEN BS="T" 
RETURN 

SID=549272 


FOR Li=8 TO 23 

POKE SID+tL1,@ 

NEXT Li 

POKE SID+24,15 

POKE SID+5,15 

POKE SID+6, 255 

POKE SID+4,17 

FOR L1=48 TO 22@ STEP 3 
POKE SID+t1,L1 

NEXT Li 

FOR Li=28 TO 26@ STEP 3 
NEXT Li 

FOR L1=29@ TO 28 STEP -3 
POKE SID+1,L1 
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4169 NEXT Li 
4170 POKE SIDt1,¢ 
4189 RETURN 


PROLOG-A 


REM KXEKEKEKEHKHKHKEKEK KEKE HEKEEKKE KEKE E HK 
REM USE "." INSTEAD OF ":" . FOR 

REM EXAMPLE, "WHICH(X =: SUM(1 1 2))" 
REM BECOMES "WHICH(X . SUM(1 1 2))” 
REM HEHEHE KKKHE HHH HEKEKHHK KEK KKHEHKKEKEKKKHKKEEK 
1@ REM PROLOG-A (SIMPLE FRONT-END) 

29 REM * ALL INPUT IN UPPER CASE * 

36 GOTO Se 

4G PRINT" 

{BLUNO (MORE) ANSWERSCWHT3" > RETURN 

S24 GOSUB 327G:REM INITIALISE 

SA REM KXXKKKEKEKKKEKEHKEKKEKKEKEKKEEKEEE 

78 GOSUB 4990: PRINT 

84 JS=""lINPUT " 

{PUR3&. CWHTI "5 IS 

9s IF J#="" THEN END 

igg PRINT ” 

{PUR "5 °:1IF J&H="LIST ALL” THEN GOSUB 1864 
:GOTOQ 7G 

119 IF LEFTS(J$,5)="LIST " THEN J&=MIDS( 
J$,5)+" ";GOSUB 99¢6:GOTO 7G 

126 IF RIGHTS(3JS,1)<¢>")" THEN PRINT"1.": 
INPUT MS2IS=ISt+*MS: GOTO 124 

13@ LI=LEN(JI#) 

149 JS=LEFTS(IS,LIJ-1)+" "REM STRIP FINA 
L >», REPLACE WITH SPACE 

1590 LI=LEN(JIS) 

169 FLAG=9 


whan e 
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179 IF LEFT#S(3%,4)="ADD(" THEN JS=MIDS(J 

$,5) :FLAG=1 

186 RULEFLAG=9: PLUSFLAG=@: ARI THFLAG= 
199 FOR R=1 TO LEN(JS%) 

299 IF MID#(J$,R,4)=" IF " THEN RULEFLAG 

=R!FLAG=6 

219 IF MID#(J%,R,5)=" AND " THEN PLUSFLA 

G=R 

220 IF MIDS(JS,R,4)="SUM(" THEN ARITHFLA 

G=1 

239 IF MIDS$(J$,R,6)="TIMES("” THEN ARITHF 

LAG=2 

249 IF MID#(J¢,R,6)=" LESS " THEN ARITHF 

LAG=3 

259 IF MIDS(JS,R,3)="INT" THEN ARITHFLAG 

=4 

26@ NEXT R 

278 IF LEFTS(J%,3)="IS(" THEN J#%=MIDS(IJ% 
,4) SFLAG=2 

280 IF LEFTS(J&%,1@)="WHICH(X . " THEN J® 

=MIDS(J%, 11) !FLAG=3 

298 IF LEFT#(J#%,16)="WHICH((X Y) . X " T 

HEN JS=MIDS(J%, 17) :FLAG=4 

399 IF FLAG=@ THEN PRINT"SYNTAX ERROR":G 

oTO 726 

31@ LI=LEN(IS) 

329 REM NOW SEND TQ RELEVANT SUBROUTINES 

33@ IF PLUSFLAG<>@ THEN GOSUB 19596:GOTO 

78:REM ENCODE RULE CONTAINING AND 

349 IF RULEFLAG<>@ AND FLAG<>5S THEN GosuU 
B 111@:REM ENCODE RULE 

359 IF ARITHFLAG<>@ THEN GOSUB 243¢6:GOTO 
76:REM ARITHMETIC 

360 IF RIGHTS(J#%,3)=" X " OR RIGHTS(IS,3 
=" ¥ ” THEN JS=LEFTS(JS,LI-2)+" " 
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378 
389 
39d 
49S 
41 
426 
43g 
448 
4504 
460 
47D 
489 
496 
58S 
sig 
329 
534 
5490 
538 
569 
57a 
58¢ 
SoS 
696 
619 
629 
6390 
64g 
6359 
660 
676 


LI=LEN (IS) 

IF FLAG=1 THEN GOSUB 44@:REM ADD 
IF FLAG=2 THEN GOSUB 5S2¢:REM IS 

IF FLAG=3 THEN GOSUB 6196:REM WHICH 
IF FLAG=4 THEN GOSUB 839:REM WHICH2 
GOTO 79 

REM KEKKKEKHHHKHEKKKKHKKKKKHKHKKEK KEE 
REM ADD 

K=9 

K=K+tl 

IF Z2$(K)="" THEN 2%(K)=J$:2 RETURN 
IF K<1969@ THEN 469 

PRINT"*MEMORY FULL" 


RETURN 

REM KHEKKEHEHKEHKE HHH HEE HKHKHKHKKK KEKE KEKE 
REM Is 

K=9 

K=K+1 


IF 28(K)="" THEN 58a 
IF Z2$(K)=JS THEN PRINT"YES": GOTO 59a 
IF K<199@ THEN 54¢ 


PRINT"NO” 

RETURN 

REM KEKE KHEKEKEHEEHK EK HKEHK KKH HEH HKEHKHKKHK 
REM WHICH 


IF LEFT®(3JS%,1)="X" THEN 719 
JS=LEFTS(J%,LJ-1) 

K=@ 

K=K+1 

IF Z#(K)="" THEN 6992 

IF JS=LEFTS(Z%(K),LEN(J%)) THEN PRIN 


T RIGHTS (2S(K), (LEN(ZS(K)) -LEN(JS) )) 


689 
59S 


IF K< 1969 THEN 659 
GOSUB 49 
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7 IE 
PAG 
P29 
Pag 
74D 
758 
76S 
P7O 
788 


RETURN 

REM * QUERY STARTS WITH X ¥ 
IS=MIDS (IS, 3, LEN( JIS) -3) 

LI=LEN( IS) 

K=e 

K=K+l 

IF Z8(K)="" THEN SOS 

QS=MIDS(ZH(K) ,LEN(ZS$(K))-LI,LI) 

IF Q&=JSG THEN PRINT LEFTS(Z2%(K),LEN( 


ZSB(K)I-(LI+2)) 


79@ IF K{19@@ THEN 75¢ 

888 GOSUB 4g 

$19 RETURN 

BZA REM KXKKHKHHKK HK HHH HHH HHH HHH HHI 
839 REM WHICH2 

844% IJS=LEFTS(3J&,LI-2) 

858 LI=LEN(IJS) 

869 K=¢ 

87@ K=K+l 

88@ IF Z#(K)="" THEN 969 

890 LFLAG=@ 

998 FOR L=1 TO (LEN(Z®(K))-LJ) 

919 IF MIDS$(Z#(K),L,LJ)=J% THEN LFLAG=L 
926 NEXT L 

930 IF LFLAG=@ THEN 95@ 

94 PRINT LEFTS(Z$(K),LFLAG-2) sMID&(ZS(K 
), (LFLAGtLI)) 

950 IF K<19@@ THEN 87 

968 GOSUB 40 

97@ RETURN 

FBS REM KXKKKHKK HHH HH HHH HHH HHH 
999 REM LIST 

1998S K=G 


1919 K=K+tl 
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1926 IF Z$(K)="" THEN RETURN 
193@ LFLAG=o 
1949 FOR L=1 TO (LEN(Z$(K))-LEN(JS)) 
1959 IF MIDS(Z$(K),L,LEN(J%))=J% THEN LF 
LAG=1 
196@ NEXT L 
1976 IF LFLAG=1 THEN PRINT Z(K) 
198@ IF K<19@@ THEN 1919 
199@ RETURN 
LAD REM XXXKXXHHH HHH KKH HHI K KI II 
1119 REM FORM RULES 
1126 R=RULEFLAG 
1130 ES=LEFTS(J%,R) :FS=MIDS(IS,R+4) 
1149 IF LEFTS(ES%,1)<>"xX" THEN PRINT"RULE 
ERROR":GOTO 72 
115@ REM NEXT LINE DETECTS INPUTS LIKE 
xX EATS Y IF X IS-A Y 
116@ IF RIGHTS(F%,2)="Y " THEN 1399 
1176 PRINT TAB(18)3 "COMPILING RULE" 
118@ FOR T=1 To 19@ 
1199 RS(T)="" 
129@ NEXT T 
1210 E®=MIDS(ES, 3) 1 FS=MIDS(FS, 3) 
122@ K=@:RR=2 
1230 K=K+l 
124@ IF Z#®(K)="" THEN 139¢ 
1256 IF RIGHTS(Z$(K),LEN(FS))<>F% THEN 1 
370 
126@ RR=RR+1 
127@ R®(RR)=LEFTS(Z8(K), (LEN(Z%(K) ) -LEN( 
FS))) +E% 
128@ PRINT "> ";RS(RR) 
1296 GOTO 1236 
1308 IF RR=@ THEN RETURN 
1319 RC=e 
132@ RC=RC+1 
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1336 
1349 
1359 
1369 
13723 
1386 
13996 
1499 
1419 
14298 
14396 
1446 
1459 
1466 
1472 
1489 
1499 
1599 
15194 
15293 
153¢ 
1549 
1559 
1569 
1576 
1586 
1596 
1696 
16196 
1629 
1639 
1649 
165¢ 
1669 
1679 


ZS(K)=RS(RC) 
IF K<i@@@ THEN K=K+tl 
IF RCCRR THEN 13296 


RETURN 

IF K<199@ THEN 1239 

RETURN 

REM * RULE WITH 2 VARIABLES *¥ 


FOR T=1 TO 196 

RS(T)="" 

NEXT T 

K=9:RR=9 

IF K=199@6 THEN RETURN 

K=K+1 

IF ZS(K)="" THEN 1779 

REM SPLIT INTO THREE WORDS 

QSB=25(K) 

jJ=9 

J=I+i 

IF MIDS(@S,J,1)=CHRS(32) THEN 1549 

IF J<LEN(@%$) THEN 1599 

PRINT"RULE COMPILING ERROR": GOTO 79 
AS=LEFTS (QS, 7) 

QS=MIDS(Q5,I+1) 

J=¢ 

J=I+1 

IF MIDS(@$,J,1)=CHRS(32) THEN 16192 

IF J<LEN(@S) THEN 1572 

PRINT"RULE COMPILING ERROR": GOTO 76 
BS=LEFTS (QS, 3) 

QS=MIDS (QS, I+1) 

J=g 

J=J+1 

IF MID#(QS$,J,1)=CHRE(32) THEN 1689 

IF J<LEN(@S$) THEN 1649 

PRINT"RULE COMPILING ERROR”:GOTO 76 
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1680 
1699 
17GB 
1716 
1726 


PRINT TAB(18)3; "COMPILING RULE” 
CS=LEFTS (QS, J) 
MS=MIDS(FS,3,LEN(BS) ) 

IF BS<>oMS THEN 14490 

RR=RR+1 


1736 N&=MIDS(ES, 3, LEN (ES) -4) 

1749 RS(RR) =AS+NS+CSH 

1750 PRINT"> ";RB(RR) 

1769 GOTO 1449 

17798 IF RR=8 THEN RETURN 

178o M=¢ 

1799 M=M+1l1 

13sg@ IF M>RR THEN RETURN 

1819 Z$(K)=RS(M) 

1826 IF K=19960 THEN PRINT "OUT OF MEMORY 
";GOTO 74 

1830 K=K+tt 

1849 GOTO 1796 

LESAP REM HHKKKHKHKHHK KKK KKK HHH HHH HEHEHE HH 
1869 REM LIST ALL 

1878 PRINT 

1889 K=6 

18990 K=K+tl 

1996 IF Z28(K)="" THEN RETURN 

19196 PRINTZS$(K) 

1929 IF K<19@@ THEN 1899 

1930 RETURN 

LIFD REM KHEKKHKKHEHKHKKHKHKEKE KH KKK HEH HH 


19358 


1946 


1976 


REM FORM RULES WITH ’AND’ OF THE 
FOLLOWING TYPE: 

REM (X EATS Y IF X IS-A BIRD AND 
Y COMES IN BOXES) 

REM X STATEMENT MUST BE IN LIST 


PRECEDING Y FOR ALL EXAMPLES TG BE CODED 


19390 
1990 


REM SPLIT INTO SECTIONS 
JS=MIDS(IG,2)2:REM STRIP "X" 
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24699 PRINT TAB(26)3; "COMPILING RULE” 
26198 J=1 
20929 J=I+i 
2939 IF MID#G(3I#,J,1)=CHRS(32) THEN 2060 
2949 IF J<LEN(JS) THEN 2929 
26598 PRINT"RULE COMPILING ERROR": RETURN 
2466S AS=LEFTS(J$,J):REM RELATIONSHIP 1 
2979 IJS=MIDS(IS,I+7) °REM STRIP 

TQ START OF SECOND RELATIONSHIP 
2089 J=1:COUNT=9 
299G J=I+1 
2199 IF MID#(JG,J,1)=CHRS(32) THEN COUNT 
=COUNT+1 
21196 IF COUNT=2 THEN 2199 
2126 IF J<LEN(JS%) THEN 2999 
213@ PRINT"RULE COMPILING ERROR": RETURN 
2149 BS=LEFTS(JS$,J):REM STATEMENT 1 
2156 CS=MIDS(IG,I+6) SREM STATEMENT 2 
2166 IF CS=CHRS(32) THEN PRINT"RULE COMP 
ILING ERROR": RETURN 
21798 REM NOW GO THROUGH DATABASE 
2189 FOR T=1 TO 286 
2199 RS(T)="" 
2298 NEXT T 
2210 Ri=G:R2=99 
2228 K=¢ 
2236 K=Kti 
2298 IF ZS(K)="" THEN 23196 
225¢@ IF R1=99 OR R2=29G THEN PRINT"MEMOR 
¥ SHORTAGE": GOTO 2319 
2268 LB=LEN (BS) 
2270 IF RIGHT#(Z2$(K),LB)=BS THEN R1I=R1itl 
>RS(R1)=LEFTS(Z$(K),LEN(2ZS(K))-LB) 
2280 LC=LEN(CS) 
2299 IF RIGHTS(Z28(K),LC)=C# THEN R2=R2+1 


*RS(R2)=LEFTS(2S(K), LEN(Z$(K))-LC) 
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2396 IF K<1@9@ THEN 2230 

2319 IF R#®(19G)="" THEN PRINT"STATEMENT 
OF INPUT NOT IN DATABASE": RETURN 

2326 REM NOW ENCODE RULES 

2330 R1=G:R2=99 

2349 R2Z=R2+1 

235@ Ri=Ritt 

2369 IF RS®(R1)>CHRS(32) AND RS(R2) >CHRS(< 
32) THEN Z2%(K)=RS(R1)+AS+RS(RZ)+" " 

2374 PRINT"> "3 Z8(K) 

238@ K=K+1 

2399 IF RS®(R2+1)<>"" THEN 234g 

249G IF RS(RI+1)<>"" THEN 2356 

2419 RETURN 

Z4ZGS REM XXXXHKHKHKHHHHHHKHKHKHKHKIKKKKHIKK 
2430 REM ARITHMETIC 

2449 LI=LEN(IJ#) 

245@ IF ARITHFLAG<3 THEN GOSUB 249¢ 

2466 IF ARITHFLAG=3 THEN GOSUB 289¢ 

2476 IF ARITHFLAG=4 THEN GOSUB 398¢ 

248@ RETURN 

2499 REM ¥XXXXHKH SUM TIMES 4X4XXX4%% 
2590 JS=MIDS(J%,5,LI-5) 

2519 IF LEFT&(J%,2)="S(" THEN JS=MIDS(I& 
=) 

2529 LI=LEN(IJ#) 

2530 K=a 

254@ K=K+1i 

2559 IF MID#(J#,K,1)=CHR&(32) THEN AS=LE 
FTS(J$,K-1):IJS=MIDS(JS,K+1):GOTO 2589 
2569 IF K<LJ THEN 254@¢ 

2578 PRINTTAB(12); "ARITHMETIC ERROR":RET 
URN 

2580 LI=LEN(JS#) 

2599 K=G 
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26998 K=K+1 

2619 IF MIDS(JS,K,1)=CHRS(32) THEN BS=LE 
FTS(JIS,K-1):5IS=MIDS(IS,Kt+1):GOTO 2649 
2628 IF K<LJ THEN 2649 

2639 PRINTTAB(12)3; "ARITHMETIC ERROR": RET 
URN 

264@ LI=LEN(IS) 

26359 K=9 

2669 K=Ktl 

2679 IF MIDS(3J#,K,1)=CHR#&(41) THEN C#=LE 
FTS(JS,K-1):GOTO 2799 

2689 IF K<LJI THEN 2669 

2699 PRINTTAB(12);"ERROR (TOO MANY VARIA 
BLES) ": RETURN 

2786 AN=0: BN=G: CN=9 

27198 IF ASC (AS) >58 THEN AN=1 

2726 IF ASC(BS)>S58 THEN BN=2 

2738 IF ASC(CS)>58 THEN CN=4 

2749 GUIDE=AN+BNtCN: IF GUIDE=3 OR GUIDE= 
5S GR GUIDE=6 THEN 2699 

2759 IF ARITHFLAG=2 THEN 2826:REM TIMES 
2766 IF GUIDE>S THEN 2799 

2772 IF VAL (AS) t+VAL (BS) =VAL (CS) THEN PRI 
NT" YES": RETURN 

2789 PRINT"NO": RETURN 

2799 IF GUIDE=1 THEN PRINTVAL (CS) -VAL (BS 
):GOSUB 49: RETURN 

2899 IF GUIDE=2 THEN PRINTVAL (CS) -VAL (AS 
):GOSUB 49: RETURN 

2819 PRINT VAL (AS) +VAL (BS) ;GOSUB 494: RETU 
RN 

2829 REM ** TIMES ** 

2836 IF GUIDE>S THEN 2869 

2849 IF VAL (AS) ¥VAL (BS) =VAL (CS) THEN PRI 
NT" YES": RETURN 

2859 PRINT"NO":; RETURN 
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2869 


IF GUIDE=1 THEN PRINTVAL (CS) /VAL (BS 


):GOSUB 49: RETURN 


2876 


IF GUIDE=2 THEN PRINTVAL (CS) /VAL (AS 


);GOSUB 49: RETURN 


28890 PRINT VAL (AS) ¥VAL (BS) :GOSUB 49: RETU 
RN 

Z8I9PG REM HHEKHKHHH LESS HEKKKKKKKK HHH 
2990 NF=9 

2916 IF ASC(JS)<58 THEN NF=1:REM NUMBERS 
2929 COUNT=0 

2938 K=G 

2949 K=K+1 

29598 IF MID#S(IG,K,1)=CHR#(32) THEN COUNT 
=COUNT+t1 

2968 IF COUNT=2 THEN 3649 

2976 IF K<LEN(JS) THEN 2949 

2989 PRINT TAB(28) "COMPARISON ERROR" 
2999 RETURN 

S998 BS=MIDS(IG,K+1) 

39196 ASB=LEFTS(J$,K-6) 

3929 IF NF=1 THEN 39659 

3939 IF AS<BS THEN PRINT "YES": RETURN 
3949 PRINT"NO": RETURN 

3959 REM * NUMBERS ¥ 

3466 IF VAL(AS)<VAL (BS) THEN PRINT"YES": 
RETURN 

3874 PRINT"NO": RETURN 

SGSED REM HHKKHKHEKHHKH INT HKEHKHHHHHHHKHH 
SG99 IF RIGHTS(J#%,2)="X " THEN 3199 

3199 K=G 

S119 K=K+1i 

3126 IF MIDS(JS,K,1)=CHRS(32) THEN 3169 
$3139 IF K<LEN(J%$) THEN 3119 

314@ PRINT TAB(24)3; "ARITHMETIC ERROR” 


315¢ 


RETURN 
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316@ A=VAL(LEFT#(J&%,K-1)) 

3178 IF INT(A)=A THEN PRINT"YES": RETURN 
3186 PRINT"NG”" > RETURN 

S19SG K=G 

32908 K=K+1 

3219 IF MIDS(J#,K,1)=CHRS(32) THEN 3249 
3226 IF K<LEN(J#%) THEN 3299 

323@ PRINT TAB(20)3; "ARITHMETIC ERROR": RE 
TURN 

3244 PRINT INT(VAL(LEFTS(J%,K-1))) 
3259 RETURN 

SZEAFD REM KKH KKHKHKHKHKKHHKHEKE KK KKKEKKEKKEE 
3279 REM INITIALISE 

3280 PRINT " 

{CLR3"2POKE 53286,G:POKE 53281,9 

3299 DIMZ$(1999) ,RB( 29H) 

3396 RETURN 

4999 SID=54272 

4G1@ FOR Li=@ TO 23 

4920 POKE SID+tL1,9 

9G38 WEXT Li 

4g4¢@ POKE SID+24,15 

4950 POKE SID+5,15 

496¢ POKE SID+t6,255 

4976 POKE SID+4,17 

498G FOR L1=48 TO 220 STEP 3 

4909S POKE SIDt1,L1 

41966 NEXT Li 

4119 FOR Li=28 TO 26@ STEP 3 

41390 NEXT Li 

414@ FOR Li=2@6 TQ 28 STEP -3 

4159 POKE SID+ti,L1 

4169 NEXT Li 

4176 POKE SID+t1,@ 

4189 RETURN 
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SSLISP 


1g REM S.S. LISP 

28 GOTO 345g 

3H REM HHKKHKHKKKHKHKKH KKH HHH KKH HHH 

49 AS=MIDS(AS,E) : AS=LEFTS (AS, LEN (AS) -1) 

52 RETURN 

OB REM KX KXKHKH KKK HHH HHI 

7@ PRINT " 

{PUR}" 

8a NN=@ 

99 AS="" INPUT": 

CWHT3 "ZAG 

196 IF AS="" THEN END:REM JUST PRESS 
<RETURN> TO END RUN 

L1G REM XXHXHKHKK KKH HH KKH HHH HHH HHH 

12@ PRINT " 

{PUR3}";:FOR J=1 TO 12 

13G@ X(J)=G:Y(I)=9:Z(I) =o 

14@ NEXT J 

L5G REM HXXKHH HHH HH HHH H III 

166 R=9:S=@: T=G: CFIRST=G6: CSECND=9: EDGE=9 

17@ FOR J=1 TO LEN(AS) 

18@ BS=MIDS(AS,J,1) 

199 IF BS="(" THEN S=S+1:Z(S)=J:IF T=@ T 

HEN CFIRST=J 

299 IF BS=")" THEN T=T+1:Y(T)=J:IF CSECN 

D<>@ AND EDGE=@ THEN EDGE=J-1 

219 IF T=1 AND BS=")" THEN CSECND=J3 

226 IF B=" " THEN R=Rt1:X(R)=J 

236 NEXT J 

24G IF S=T THEN 3@@:REM ( ) BALANCE 

256 IF S<T THEN PRINT " -> MISSING (¢" 

26@ IF S>T THEN PRINT " -> MISSING )" 

276 INPUT "+ "3B 

288 AS=AS+BS 
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298 


GOTO 129 


360 IF NWDS=@ OR NN=1 THEN 3796 

319 MS=LEFTS (AS, X(1)-1) 

326 FOR J=1 TO NWDS 

330 IF MS=NS(J) THEN AS=0%S(J)+MIDS(AS,LE 
N(NS(J)) +1) 

346 NEXT J 

S5@ NN=1 

369 GOTO 126 

372 FLAG=9: BS="NIL” 

38@ IF LEFT#(AS,5)="CAR (" THEN FLAG=1 
399 IF LEFTS(AS,5)="CDR (" THEN FLAG=2 
499 IF LEFTS(AS,46)="CONS (" THEN FLAG=3 
919 IF LEFTS(AS,6)="ATOM (" THEN FLAG=4 
926 IF LEFTS(AS,494)="EQ (" THEN FLAG=5 
439 IF LEFTS(AS,6)="NULL (" THEN FLAG=6 
449 IF LEFTS(A%S,8)="MEMBER (" THEN FLAG= 
7? 

459 IF LEFTS(AS,6)="MEMQ (" THEN FLAG=3 
469 IF LEFTS(AS,8)="APPEND (" THEN FLAG= 
9 

4796 IF LEFTS(AS%,9)="REVERSE (" THEN FLAG 
=1G 

4386 IF LEFTS(AS,7)="EQUAL (" THEN FLAG=1 
1 

499 IF LEFTS(AS,6)="LIST (" THEN FLAG=12 
599 IF LEFTS(AS,8)="DEFINE (" THEN FLAG= 
13 

519 IF LEFTS(AG,6)="ADD1 (" THEN FLAG=14 
529 IF LEFTS(AS,6)="SUB1 (" THEN FLAG=15 
53G IF LEFTS(AG,7)="ZEROP (" THEN FLAG=1 
6 

546 IF LEFTS(AS,12)="DIFFERENCE (" THEN 


FLAG=17 
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S5@ IF LEFTS(AS,6)="EXPT (" THEN FLAG=18 
560 IF LEFTS(AS,5)="MAX (" THEN FLAG=19 
S79 IF LEFTS(AS,5)="MIN (" THEN FLAG=2@ 
389 IF LEFTS(AS,6)="PLUS (" THEN FLAG=21 
599 IF LEFTS(AS,7)="MINUS (" THEN FLAG=2 


699 IF LEFTS(AS,19)="QUOTIENT (" THEN FL 
619 IF LEFTS(AS,7)="RECIP (" THEN FLAG=2 
629 IF LEFTS(AG,11)="REMAINDER (" THEN F 
6396 IF LEFTS(AS,7)="TIMES (" THEN FLAG=2 
699 IF LEFTS(AS,19)="GREATERP (" THEN FL 
650 IF LEFTS(AS,7)="LESSP (" THEN FLAG=2 
669 IF LEFTS(AS,8)="MINUSP (" THEN FLAG= 


67@ IF LEFTS(A%,9)="NUMBERP (" THEN FLAG 
=3G 

689 IF LEFTS(A%,6)="ONEP (" THEN FLAG=31 
699 IF FLAG>13 THEN 729 

768 ON FLAG GOSUB 849,899,979, 1119,1299, 
1338, 1386, 1519, 1799, 1768, 2999, 2139, 3399 
71@ GOTO 762 

72@ IF FLAG>24 THEN 7592 

73@ ON (FLAG-13) GOSUB 2189, 2236, 2289, 23 
58, 2569, 2699, 2798, 2829, 2875, 2929, 2968 
748 GOTO 766 

75@ ON (FLAG-24) GOSUB 3930,3979,3129,31 
68, 3288, 3259,2289 

768 IF FLAG<>@ THEN GOSUB 789 

778 GOTO 79 
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78 
796 
BBS 
819 
828 
83a 
84a 
35a 
(2)) 
86D 
-CFI 
87g 
88g 
898 
988 
91GB 
928 
936 
%,LE 
946 
(BS, 
95e 
968 
976 
9386 
996 
19S 
1916 
1926 
1938 
194g 
1956 
1968 
197 
1g8¢@ 


REM **% RETURN ANSWER ** 

GOSUB 4990:PRINT" VALUE IS..." 

IF BS<>"¢()" THEN PRINT" "3 BS 

IF BS="()" THEN PRINT” NIL” 

RETURN 

REB KKXKKKHKKHKHKKKE KKK KEKHKEK KEKE 

REM %¥% CAR **¥ 

IF S=2 THEN BS=MIDS(AG,2Z(2)+1,%(2)-2 


IF S>2 THEN BS=MID#(AG, CFIRST, CSECND 
RST+1) 

RETURN 

REM KKEKHEHHH HEHEHE KKK HKHKEKEKHKHKHKEKHKEE 

REM ¥¥ CDR %*¥ 

GOSUB 84¢ 

LB=LEN (BS) +7 
BS="("+MIDS(AS,LB,EDGE-1) 


IF RIGHTS(BS,2)="))" THEN BS=LEFTS(B 
N(BS)-1) 

IF MIDS(BS,2,1)=" " THEN BS="("+MIDS 
3) 
RETURN 
REM KKEKKHKKKKKKKEKKEKKEEKEEKHKEHHEE 
REM %¥% CONS ¥* 
BS=MIDS (AS, 7, LEN( AS) -1) 
J=9 

IF LEFTS(BS,1)="(" THEN J=1 

J=I+1i 

IF MIDS(BS,J,1)="(" THEN 1956 

IF J<LEN(BS) THEN 19619 

BS=" > CONS ERROR <"; RETURN 
LB=LEN(BS)-1 

BE="("+LEFTS(BS,J-1) +MIDS(BS, J+1) 
BS=LEFTS(BS,LB) 

IF RIGHTS(BS,2)=" )" THEN BS=LEFTS ( 


BS,LEN(BS)-2)+")" 
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1999 RETURN 

LLIGHD REM HHKKHKKKHKHKHKKHKHKKKKKKKKKKKKHKE 
11190 REM ¥% ATOM H¥ 

1126 AS=MIDS(AG, 7, LEN(AS) -1) 

1130 J=9:BS="NIL" 

11969 J=I+t1 

1156 IF MIDS(AS,J,1)=" " OR MIDS(AS,I,1) 
="(" THEN RETURN 

116@ IF J<LEN(AS) THEN 11499 

1179 BS="T" 

1189 RETURN 

LIPAH REM HHEKKKKHK HHH HHH KKH HK HHH KKK 


1290 REM xX EQ %F 
1219 E=5:GOSUB 4 
1220 J=G 


1230 J=I+1 

129@ IF MIDS(AG,J,1)=")" THEN RETURN 
1250 IF MIDS(AS,J,1)=" " THEN 1289 
1266 IF J<LEN(AS) THEN 1230 

1270 RETURN 

12890 CE=LEFTS(AG,J-1) 

1299 AS=MIDS(AS, J+1) 

13G@ IF C#%=AS THEN B#="T" 

13190 RETURN 

LS2ZA REM HKEKKHKHKHKKHHKHKKHKHKHKHKKKKHK KKK HK 


1330 REM XX NULL ¥*¥ 

13496 IF AS="NULL {()" THEN BS=" * ILLEGAL 
- NULL NEEDS ARGUMENT ¥" 

135@ XxXS$="NULL (()) "IF AS=XXS THEN BS=" 
A ig 


1368 RETURN 

L37PD REM KEKKKKHEKKHKK KKK KK KKK KEHKKHEH 
1380 REM *¥% MEMBER ¥*¥ 

1399 CS=MIDS(AS, 9) 

1949G@ J=1 
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19418 J=I+i 

1429 IF MIDS(CH%,J,1)=")" OR MIDS(CH,IJ,1) 
="(" THEN DS=LEFTS(CS,J):GOTO 1459 

1439 IF J<LEN(CS) THEN 1919 

1449 RETURN 

1945@ J=LEN(DS) 

1469 J=J+t1 

1479 IF MIDS(C#%,J,LEN(DS))=D#% THEN CS=LE 
FTS(CS,LEN(CS)-1):3GOTO 1639 

19469 IF J<LEN(CS) THEN 146496 

1499 RETURN 

LEGA REM HHKKEKKKKKHKKHEHKKHKKKK KEKE KHEKKE 


13519 REM %¥% MEMAQ H* 
15296 CS=MIDS (AS, 7) 
1530 J=¢ 


1549 J=I+t1 

1550 Xx#s=" "LIF MIDS(CS,J,1)=XX# THEN 15 
8d 

1569 IF J<LEN(AS) THEN 15490 

1578 RETURN 

15890 DS=LEFTS(CS, J) 

1599 CS=MIDS(CH,I+2) 

1698 CS=LEFTS(CH,LEN(C#H)-2)+" * 

16190 J=G 

1629 J=I+1 

1639 IF MIDS(C#,J,LEN(DS))=D% THEN BS=" ( 
"4MIDS(CS,J):GOTO 1669 

1649 IF J<LEN(CS) THEN 1629 

1656 RETURN 

1669 BS=LEFTS( BS, _LEN(BS)-1)+")" 

1670 IF RIGHTS$(BS,3)=")))" THEN BS=LEFTS 
(BS, LEN(BS)-1):GOTO 1672 

1689 RETURN 

LEPHD REM HHKKKHKKKKKHKHKKHKHKKHKKKKHKKEKEEE 
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173 
1716 
1726 
»-?7) 
1736 
1749 
17356 
1769 
1772 
1786 
2) 
1796 
1899 
18196 
182¢G 


REM %¥*% APPEND ** 
BS=MIDS(AS, 9) 
BS=LEFTS (BS, Y(1)-9)+" "+MIDS( BS, Z(3 


BS=LEFTS (BS,LEN (BS) -1) 

RETURN 

REM KHEKKKEHKKHKKEKKKEHKKEKHK KKK KKK HSE 

REM %¥*% REVERSE ** 

BS="" 
AS=MIDS(AG, 11) SAS=LEFTS (AS, LEN (AS) - 


cT=1 

J=¢ 

J=I+1°IF JOLEN(AS) THEN 1929 
XXS=MIDS(AS,I,1)°:1IF XXS=" " THEN GO 


TQ 1859 


18396 
1849 
1859 


S(AS, 


1866 
2) 

1876 
1889 
1896 
199@ 
1919 


IF XX#="(" THEN 1866 

GOTO 1819 
CT=CT+1:GS(CT) =LEFTS (AS, J-1) :AS=MID 
J+1):3;GOTQ 1890 

J=I+1:°:IF MIDS(AG,JI,2)="))" THEN 198 


IF MIDS(AS,J,1)=")" THEN 191¢ 

IF J=LEN(AS) THEN 1999 

GOTO 1869 
CT=CT+1:5:GS(CT)=ASt+") "2: GOTO 1936 
CT=CT+1°GS(CT) =LEFTS (AS, J) : AS=MIDS ( 


AS,J+1):GOTO 1899 


1926 
1936 


1946 
195¢ 
1969 
1976 


CT=CT+1:G%(CT) =AS 

FOR M=CT TO 1 STEP -1 
BS=BS+GS(M):IF M>1 THEN BS=BS+" " 
NEXT M 

BS="("+BS+")" 

RETURN 
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1986 


S(AS, 


1998 
2IBS 
2G1¢8 
2929 
@ 

2I3G 
2946 
29356 


CT=CT+1°:GS(CT) =LEFTS(AS, J+1) -AG=MID 
J+2):GOTO 189¢ 

REM KEKKKKKKKEKKEHEEHEKEHEKEEKEKEEEE 

REM ¥% EQUAL ** 

E=8:GOSUB 49 

M=ASC (AS) SIF M>47 AND M<S8 THEN 237 


J=¢ 
J=J+i 
IF MIDS(AS,JI,2)=") " THEN J=J+1:G0T 


Q 12896 


2969 
2578 
2980 
2A9S 
21466 


IF MIDS(AS,J,3)=")))" THEN 2199 

IF MIDS(AS,J,2)="))" THEN 2119 

IF J<LEN(AS) THEN 29649 

RETURN 

CH=LEFTS (ASG, Jt+2) SAG=MIDS(AS, J+4) 5 GO 


TQ 134¢ 


2119 


CS=LEFTS(AS, J+1) SAG=MIDSB(AG, J+3) 2 GO 


TO 1386 


2126 
2136 
215¢ 
21356 
216¢ 
217¢ 
2139 
2196 
2290 
2219 
2220 
2239 
22499 
2259 
2266 
2276 
2239 


REM KEKKHKKKKEK KH KEKEKKKEEKKKKEEE 
REM ¥¥%¥ LIST %% 

E=7:GOSUB 4¢ 

BS="("+ASt")"” 

RETURN 

REM KHEKKKKKKKKKKEKEKKEKKEKEKEEEE 
REM ¥% ADDL ¥* 

E=7:GOSUB 49 
BS=STRS (VAL (AS) +1) 

RETURN 

REM KXXXKKKEKKEKKKEKKKEKEKEK KEKE EE 
REM ¥¥%¥ SUBL ¥¥ 

E=7:GOSUB 44 
BS=STRS (VAL (AS) -1) 

RETURN 

REM KHEKKKKHKKKKEKEKKEKKEKK KEKE 
REM %¥% ZEROP %* 
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2296 


IF FLAG=16 THEN E=8 


2399 IF FLAG=31 THEN E=? 

231¢@ GOSUB 4% 

2329 IF (AS="G" AND FLAG=16) OR (AS="1" 
AND FLAG=31) THEN BS="T" 

2336 RETURN 

Z34G REM KXEKKXKKKKKKKEKKKKKKKEKKKE KEE 
2358 REM ¥*% TWO ARGUMENTS *¥ 

236@ E=13:GOSUB 494 

23708 J=G 

2330 J=I+i 

2399 IF MIDS#(AG,J,1)=" " THEN 24526 

2499 IF J<LEN(AS) THEN 2389 

2419 BS=" * ERROR - GNLY ONE ARGUMENT *" 
>RETURN 

2424 P=VAL(LEFTS(AS,J-1)) 


24939 
24468 
2459 
2469 


Q=VAL (MIDS(AS,J+1)) 

IF FLAG=17 THEN BS=STRS(P-@) : RETURN 
IF FLAG=23 OR FLAG=25 THEN B=P/®@ 

IF FLAG=25 THEN B=INT(.5+G¥(B-INT(B 


))¥19G9GG) /1GA™P 


2976 


2489 
24996 


2590 
2516 
2529 
2536 
2549 
2550 
2569 
257 
23589 
2598 
269d 


IF FLAG=18 THEN B=P*@ 

IF FLAG=11 AND P=@Q THEN BS="T" 
IF FLAG=27 AND P>@ THEN BS="T”" 
IF FLAG=28 AND P<@ THEN BS="T" 
IF FLAG=32 THEN B=P-@ 

IF FLAG=11 OR FLAG>26 THEN RETURN 
Bt=STRS(B) 

RETURN 

REM KEKKHKHKKKKEKKKKKEKKEKKEKEKEEE 
REM %% EXPT HF 

E=/:GOSUB 49 

GOTO 23769 

REM KEKKKEKEHKKKKE KEKE KE KKEKEKEEE 
REM *% MAX (MIN PLUS TIMES) ¥ 
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2616 
2629 
2636 
264949 
26590 
2669 
267DB 
2689 
2699 


FS=LEFTS(AS, 3) > AS=MIDS (AS, 6) 
CT=9:FLAG=G 

IF F#="TIMES”" THEN CT=1 

J=9 

J=J+1 

IF MIDS(AS,J,1)=" " THEN 2699 

IF J<LEN(AS) THEN 2659 

IF J=LEN(AS) THEN FLAG=1 

P=VAL (LEFTS(AS,J-1))2:IF FLAG=@ THEN 


AS=MIDS (AS, J +1) 


27936 
2716 
2726 
2738 
2749S 
27358 
27668 
2778 
2786 
2798 
2356 
2816 
2829 
283 
28496 
23856 
28690 
23879 
28389 
2899 
2998S 
2916 
2926 
2936 
29499 
29356 


IF F#<>"PLUS" AND CT=@ THEN CT=P 
IF FS="MAX" AND PCT THEN CT=P 
IF FS="MIN" AND P<CT THEN CT=P 
IF FS="PLUS" THEN CT=CT+tP 

IF FS="TIMES” THEN CT=CTXP 

IF FLAG=@ THEN 2449 
BS=STRS(CT) 

RETURN 

REM KEKKEKHKKHKKEKKKHEHHEK KKK KEES 
REM Hk MIN H¥ 

GOTO 2619 

REM KXHEKHKHEHK KEKE KEKE KEKE KEKEEE 
REM %¥%¥ PLUS ¥*¥ 

Fs="PLUS" 

AS=MIDS (AS, 7) 

GOTQ 2629 

REM KXKKKEKKKEKKK KKK KEKE EKEKE 
REM %¥% MINUS ¥% 
E=8:GOSUB 46 

BS=STRS (-VAL (AS) ) 

RETURN 

REM KXKKEKKKKKKKKKKKKKKEKEKEKEKE 
REM %¥% QUOTIENT ** 
E=11:GOSUB 49 

GOTO 2376 

REM HXKKEKKKKKEKEKKEKEKEKEKEK KEKE 
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2968 REM ¥% RECIP ¥* 

297@ E=8:GOSUE 4¢ 

2988 IF B&="9" THEN BS=" DIVISION BY ZER 
O ILLEGAL":RETURN 

2998 B=1/(VAL(AS)) 

3982 BS=STRS(B) 

3@1@ RETURN 

328 REM JEG E HEHEHE 
3939 REM ¥% REMAINDER *% 

3649 E=12:GOSUB 49 

395@ GOTO 2379 

SHOG REM HXHKEK KKK KKK HK IRIIK 
3978 REM ¥% TIMES ¥* 

3989 FS="TIMES" 

399@ AS=MIDS(AS,8) 

3198 GOTO 2629 

BLLG REM KXKKHKHKEHK AKER IR IKE IRE 
3128 REM #% GREATERP ¥* 

313@ E=11:GOSUB 49 

314@ GOTO 2379 

S1SO REM FGI IIE 
3169 REM ¥% LESSP ¥* 

3178 E=8:GOSUB 49 

3188 GOTO 2372 

SLID REM XXKKHKHK KHER KIER E EE 
3288 REM ¥% MINUSP *% 

3219 E=9:GOSUB 49 

3228 IF VAL(AS)<@ THEN BS="T" 

323@ RETURN 

3B24D REM KXKKHKK HK HK IKK KHER 
3259 REM %% NUMBERP *% 

3268 AS=MIDS(AS, 19) 

3278 IF ASC(AS)>44 AND ASC(AS)<5S8 THEN B 
$="T" 

3288 RETURN 
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B2OAP REM HEX KKKHKHKKHKHKKKKHKKKEK KK KHK 

339¢ REM ¥% DEFINE ¥* 

3319 AS=MIDSE(AS,9) 

332@ FS=LEFTS(AS,X(2)-9) 

333G GS=MIDS (AS, X64) -6) 

3346 J=G 

3359 J=I+1 

3368 IF MIDS(GS,J,1)=" " THEN 3396 

3379 IF J<LEN(GS) THEN 3359 

3389 BS=" DEFINE ERROR": RETURN 

3399 GS=LEFTS(GS,J-1) 

3498 NWDS=NWDSt1 

3419 OF (NWDS) =GS:NS(NWDS) =FS 

3429 BS=Fs 

3439 RETURN 

BAAD REM KXKHK HK HK KH HK KKK KKH KKH 

3456 REM INITIALISE 

3464 PRINT" 

{(CLR3"!:POKE 53289,4:POKE 53281,¢ 

3479 DIM GH(2G) ,O8( 2G) ,.NS(2H),X(12),Y(12 

¥, 2412) 

3489 NWDS=@G:REM COUNT OF USER-DEFINED 
"NEW WORDS’ 

3499 GOTO 7g 

4968 SID=54272 

491@ FOR Li=@ TO 23 

4929 POKE SID+tLi,@ 

4939 NEXT Li 

494@ POKE SID+24,15 

495@ POKE SID+5,15 

496G POKE SIDt6,255 

4979 POKE SID+4,17 

4989 FOR Li=48 TO 226 STEP 3 

499 POKE SID+1,L1 
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91 Gs 
9114 
4139 
9148 
4159 
916¢ 
4179S 
4186 


NEXT Li 


FOR Li=28 TO 26@ STEP 3 


NEXT Li 


FOR Li=296 TO 283 STEP 


POKE SID+ti,L1 
NEXT L1 
POKE SIDt1,g@ 
RETURN 
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Spectrum 
/Spectrum+ 


THE AUTO MECHANIC 


i 


Is 
is 


cd 
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“B" THEN GO TO L235 
“E' THEN GO TO 1I3Ee8 


+ PEPE EFEE SREP EERE FR SEES 

HT TURK DUER 

“WELL START By THECEK 
BATTERY .' 

“TURN ON THE LIGHTS.” 

EF 6&, INK 6) “ARE THE 


cl 


1520 . 2 
=p THEN Go Ta SEQ: aa 


INK 6; "ARE GETTERY Ce 
CORRODED 


a 
Ue; me ea 
ia 


H 
20 Dow tr iVnune 


oo 


STOP 

PRINT IME, 6: "IS THERE Lodi! 
OF CORROSION” 

tINT INK 6; AT THE STARTE 
F THE BATTERY CAEL 


LD BE ENOUGH TO START THE 
i— 


2FrO 52 EF i520 
250 IF ="¥" THEN PRINT “TISnT 
Er AND CLEAN" 
230 SO SUB 15508 
TQ PRINT INK 6; "IS THE FAN EEL 
LOOSE? 
@ 20 SUB 1520 
@ IF Ags'" THEN PRINT TAB 4: 
GHTEN THE FAN BELT" 
38 50 SUG 1580 
a5 LINT "JUMPER LEADS oR A PU 
: 
7 


Wea: 


T A PIECE OF METAR 


3 PRINT * SOLENOID TERMINALS. 
TMK 6, OES ARTES 


arn 
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450 “y" THEN PRINT TAB 4: 
Waa os BE REPLACED": STO _ 
465 ‘ INK 8; "DOES STERTER © 
LICK?" 
$73 GO SUB 1529 heh 
459 IF Ag='¥" THEN PRINT “THE & 
TARTER MAY BE JAMMED": GO TO 520 
$39 PRINT "AS NOTHING HAPPENED, 
THES 
S00 PRINT °“ SOLENOID I5 PROBABL 


mm 


Ba 
a 
IMT PUSH MAW START YOU 


Lance Wes Tu Te 


319 = 

F Aba 8 STOP 

B2eG REN STARTER JAMMED Sees 
Soe PRINT “TURN THE IGNITION OF 
F. AND PUT" 

S43 PRINT ° THE CAR INTO A HIGH 
GEAR. PUSH" : 
S50 PRINT * CAR FOR A FOOT OF 
20 TO POP STARRTER LOOSE.” : 
STOP 

S60 SETURN 

SPS REM FFF SHeHe HEHEHE He EEE TEs 
S80 REM TURN OVER, WON'T START 
Saga PRINT “CHECK WIRES AT POINT 
= FOR DAMPNESS." seh | ide ahd 
2G0 PRINT INK 8; "IS THERE A SHR 
NDE AREAS ARE DAMP?" 

6i8 GO SUB 1529 fe 
820 IF A@g=s"¥" THEN PRINT “SPRAY 
WITH MOISTURE REMOVAL SPRA 


GO SUB 15560 


B38 FR RINT INK 6; "IS THERE OUST 
WISIBLE ON THE" _ A 
B43 PRINT INK 6; INSULATING FRA 
RT OF THE COIL, GR" o 
BSG FRINT INK 6)" ON THE OGISTR 
IBUTOR CAPT 

S62 0 SUB i528 

B78 IF @g="¥" THEN PRINT “LIFE 
COIL SECTION AS WELL AS" = 
630 IF Aag]="¥" THEN PRINT “ INIT 
CE AND GUTSIS OF CAP.’ : GO SUB 
1558 * 
BOO PRINT “ENSURE ALL WIRES ARE 

ISAT AD DRY BEFORE CONTINUTI 


— 
a. 


oom ed A ee 


by 
ee 


This 


RT IT IS TINE TG CHECK TH 

iAP PLUGS: " 

GO SUB i558 

PRINT INK 6; "DOES 
ENO OF THE PLUG 
_iNgH oF MORE T 
sito = ‘ hi : 

IF 

AR 

IF 

PR 


=z Ag="Y" THEN PRINT “on EM 
Hoy REPAIR CANNOT BE" 
aE AS="Y" THEN PRINT ° NAGE 
WHILE THE PLUGS ARE IN THA 
uf STATE.": GO SUB 1580: 60 To FF 
Ya] 


S IF AsS="N" THEN PRINT “IF TH 
TS AN EMERGENCY, TRY" 
MS IF Ass" N' THEN PRINT © CLOS 


ItHG THE GAP TO ABOUT HALF Nor 
a 50 SUB 1550: Go TO 31s 
ie PRINT INK 6; "IS THERE AWY & 


AT ALL?" 

(SUB 1520 

Ag="" THEN GO TO FFG 
SUB S78: STOP 

NT “CHECK ROTOR, COIL AN 


NT " DISTRIBUTOR CAP FOR 
FF" 


I 
I 

ene: ‘ THERE AREN'T ANY T 
T LOOKS AS IF THE P 
= 


ae aon 


CONDENSER IS vou 


INT “& REPAIR MAY WELL BE 

oo RETURN 

SINT INE 6, "DO YOU HAVE GF 

HE TANK?" 

SUE 1520 

ASSN" THEN PRINT “FILL 

TRY AGAIN’: SO SUB Less 

KG; "ARE ALL FUE 

LINES SECURE? 


$="N" THEN PRINT “ATTE! 
SE AND TRY AGAIN": GO § 


ese Rh 


WOE I 


2 
CHO 


a ee 0 
tain zr S 
os | 
ua 
Lal 
BrMZZ 
pean | es 
ft 
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5 i580 
78 PRINT “REMOVE THE AIR CLEAN 
ER FROM THE" 
S80 PRINT " CARBURETOR": GO SUB 
@ PRINT INK 6; "DOES IT LOOK BD 


Ag="N" THEN PRINT “ IS P 


ae 

HE GO SUB 1526 

i IF AS="N" THEN GO TO 1058 

1 Faeueee THE ENGINE OVER 
it PRINT “ WITH YOUR HAND SEAL 
I THE ATR INTAKE": GO SUB 15 
S 

i PRINT INK 6, "IS vOUR HAND Wt 
E TH GAST" 

1¢ GG SUB 1529 

i IF Ag="N" THEN PRINT UUNSOR 
El (5 CAP IN CASE AIR VENT" 

Li 


', THE FUEL PUMP MAY ROT 


BE WORKING": GO SUB 300: STOP 
1958 PRINT INK 6; "HAVE YOU BEEN 
TR SING THE" 
is PRINT INK 6; ° STARTER A LOT 

It THE PAST FEL MINUTES?" 
116@ 20 SUB 1E2e ; 

1118 IF Ag="N" THEN GO TO 1150 
1ie8 sar aie “WAIT FOR A MINUTE OF 

Sa. THEN" 

L138 PRINT * HOLD THE GAS PEDAL 

STEADILY ON" 

Lid (INT © THE FLOGR WITHOUT 

FUE Olt. THIS SHOULD SET * 
Gl i ;*: STOP 

1156 NT “THE ENGINE MAY WELL 

BE. Fi SED" 

1169 NT ° AT THIS POINT AND T 
HE Fi YALVE STUCK OPEN.” 

. &D * LESS 
1173 NT “TAP THE SIDE OF THE 
CARE oR" 

L1LeS NT ' THEN TRY THE STARTI 
HG Ft 55 AGAIN": STOP 

1138 a ee ie Peeee Pr reat et 
1268 STARTS. THEN STALL 

1219 HT “THIS SUGGESTS a FAUL 
Ty ST RESISTOR, JJAICH SHO 
J REPLACED": STOF 


SESE SE ESS ESHEETS HEE TES 
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1230 FEM RUNS. STALLS A LOT 

1248 PRINT “THE PROBLEM IS EITHE 
RF CAUSED By." 

1250 PRINT ° SHORTING jiGR LOOSE 
) WIRES; * 

1268 PRINT “ & WEAK SPARK: OR” 
12793 PRINT “ &@ FAULT IN THE FUE 
L SYSTEM" 

125@ PRINT “CHECK FIRST FOR Loos 
E SHORT- ING WIRES.': GO SUB 


Be TROUT con gor 
a 


R 
155 
1290 PRINT “IF THEY ARE NOT OF, 
REPAIR. IF THEY ARE, IT COULD 
BE THE SPARK PLUGS" 
1308 ¢O SUB 87a 
1310 PRINT “THERE I5 A FINAL CHE 
CK WE CAN" 
Ls20 PRINT "“ TRY ON YOUR SPARE P 
LUGS": 6805 SUB 1560 
1330 50 TO 1356 
L348 REM S$eHHeSHe eee HeHeeHe ee eES 
135@ REM RUNS, ROUGH IDLE 
136@ PRINT “IT COULD WELL BE THA 
T ONE OR 
137@ PRIWT ©“ MORE OF YOUR SPRRE 
PLUGS ARE FAULTY .": GO SUB 1 
55a 
1360 PRINT “DISCONNECT THEN ONE 
AT & TINE.” 
1358 PRINT “ THE ONES WHICH DO 
OT CRUSE THE" 
Ldae PRINT ENGINE IDLE TOS DROS 
P ARE" 
1413 PRINT " FAULTY. CHETK THE 
SE. THEN RETURN TO SYSTEM 
2: 62 SUB 15508 
i420 PRINT INK 6; "DIC TEST SHOW 
AMY PLUGS WERE FeULTE YY? 
idse@ GO SUB 1529 
l443 IF Age" y" THEN PRINT “REPLA 
CE ALL PLUGS IF vou CAN, OR 
i45O IF Aga" THEN PRINT ©“ JUST 
THE ONES WHICH TESTED FAL 
cry GO To 15se 
1463 PRINT “THE MOST TOMMON CAUS 
E OF & Bap" 
1472 PRINT IDLE, ASSUMING THAT 
THE PLUGS" 
PRINT " ARE OF, IS THAT ¥o 
x 
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I 


NT " TURE IS SET TOO_R 
Ou SHOULD ADJUST TH 


D4UST THE IDLE SFEE 
THE THROTTLE LINKAG 


3 REM HEESSH SSH EHH EH EH HEHE TEE 
PRINT TAB 10; INWERSE 2: Ih 
if - YES, N - NO)?" x 

IF. INKEY$<3"" THEN GO TO 15 


ET AS=INKEY $ 
Co Y" AND Agcr"N” THEN 


" un 


me 


1 
= 
= 
= 
5 


an 


CN 
Las) 


~ 


Trae 


nM 


CO OES on 
bb 


Zu 
| Fat 
a 


| oa 
me 
ta 
im 


TAB 12; "> OK “TASS 
.83,12: BEEP .03.9: BE 


DUD Deo 
I10D- Mm 

ea So 
Cras una 


mc 
At 


IAM BADLY OVER 


IAM FAIRLY OWER 


—| 
1 
lee 
hh 


tr 
InAs 


INT WaT sa 


m 
tH 


iT 


4 
5 
I 
5 


8 
a 
Gr 
a) 
E 
rt] 
Fe 


NT "C = I AM SLIGHTLY OW 
‘ 


m 
ae 
ta 


~J 


i 

T - — -, 
INT "D - My WEIGHT IS ABO 
1 

I 


LT is 

S@ PRINT “E - I AM THINNER THA 
hy oT * BET 

3 


be 
be be FEL 
Wea 


be 


120 80 SUB 1259 

1308 INK &S: PRINT I ENGAGE Ih E 
VERGISE; THAT" 

149 FRINT “RAISES My HEARTBEAT 
TO Lea oe MORE," 

1503 FPRIANT ' FOR AT LEAST THE Fa 
LLOWINGNUMNBER' ; 

169 PRINT ° GF HOURS A WEER:" 

173 INK F: PRINT 

zee PRINT “A - LESS THAH AR GUAR 
TER" 

150 PRINT “EB - MORE THAN A GUAR 
TER, UP To THREE-QUARTERS’ 
280 FRINT “OS - FROM THREE QUART 
FRS OF Ah HOUR UP TO ONE A 
NO A HALF" 

21lQ PRINT “D2 - FROM ONE AND A OH 
ALF TO THO AND A HALF 

e2eO PRINT “EF - MORE THAN THO AN 
CD & HALF HOURS" 

2I0 GO SUB Lire 

246 LET EXERCISEs5+( (Cote ag-&2 
ee IF AS="A° THEN LET ExERCISE= 
Q 

RINT EXERCISE 


SUB Llete 


fapaha 
m1) oo 


muda dSs Ui Wet 


8 

a CI 

O PRINT INK 5) °WHEM GRIVING: * 
RINT 

230 PRINT "A - I HAROLY EVER WE 
RR A SEAT BELT" 

220 PRINT “EB - I WEAR & SEAT BE 
LT ARUN & GUARTER OF TRE T 
Ine" 

3O@QG PRINT “SO - I WEAR A SEAT BE 
LT EVER SECOND JOURNEY" 

S18 PRINT “Db - I WEAR A SEAT BE 
LT FOR HOST, BUT NOT AL 
L TRIPS" 

Z2Q PRINT “EF - I ALWAYS WEARR A 
SEAT BELT" 

338 GO SUB 11768 

S40 LET SEATBELT=24¢(TODE Ag-B5! 

S50 PRINT SEATBELT 

ZB GO SUE LESea 

270 PRINT INK 5: "I AM f 

OF HUTRITION AND TRY To 
og a Oe 

ZEQ PRINT 

336 PRINT “A - ALL THE TIME’ 


245 


PRINT 


ea 


Hi 
fo fe Ef 
Pete) 


ne 


@ PRINT "SS 
Mo oOF THE 
2S PRINT "DB 
mae 
42303 PRINT “E 
448 GO SUB 1 
4508 LET OIET 
458 PRINT BIT 
470 80 SUE 2 
450 FRITH It 
AR COUNTS AS 
433 PRINT 
BOO FRINT “A 
SiS PRINT "6 
ARETTES 4 
528 PRINT "SC 
TES A DAY 
Bog INT 'D 
T A ss 
T iT n= 


qm 
D2a~< 


“| 


NT 


STMT on 


Ws 


ia 


i 


HHH wooo aM 


J TU Cafe oO ut 
TWN A aay 


8. GOGO Gag geeag tl & 
ot 
wide 


een DNIERIER(ERIERIERIERIERIERIERLY 


Tee Tb 


NEARLY ALL T! 


- A FAIR PROPORTIO 
Toe 9 
- FROM TIME TO Tih 


mA st 


nes 


JUSHOR ING fA OD 


IGARETTE: ” 


JB 1178 
SMOKING=- 


SMOKING 
1259 


cmos me 


¥(CODE AS-BS! 
S:ALCGAGL - AOL 
AVERAGE! 00 vt 


ss 


HOME" 


- LESS THAN 
= 3 To. 8" 

- 7 TO 3" 

- MORE THAN 3" 
7S 

=-369 


THEN 
THEN 
THEN 


760 PRINT 
ei7@ PRINT “A - EXTREMELY STRESS 
780 PRINT “B - FAIPLY STRESSFUL 
79@ PRINT “CG - SLIGHTLY STRESSF 
hp tt 

SOO PRINT “D - NEUTRAL" 

S19 PRINT “E - NOT STRESSFUL” 
S20 GO SUB 1179 

S30 LET STRESS=SINT (2.5¢(C0DE A 
§-55) | 

$40 PRINT STRESS 

S50 60 SUB 1300. CLs 

380 PRINT “PERSONAL ASSESSMENT 
FROM MEDICI: " 

S70 PRINT © INK 6 

S80 PRINT TAB §; "WEIGHT: "WEIGH 

PRINT TAB 6; "EXERCISE: ".EXE 
i= 

500 PRINT TAB 4,°CAR SAFETY: ".3 
EATBELT 
e218 PRINT TAB 5) "NUTRITION: "DI 
aZ@ PRINT THE 7) "SMOKING: *. SMOK 
vt 
238 PRINT TAB 7) “ALCOHOL: ".DRIN 
_$40 PRINT. TAB 8) "STRESS: ,STRES 
“g50 50 SUB 1300 

380 LET ANT=HEIGHT+EXERCISE+SEA 
TBELT +O IET+SMOKING+DRINK+STRESS 
578 GO SUB 1308: PRINT 

930 PRINT INK 5; "YOUR RAR RATIN 
G6 IS ";ANT: PRINT 

33@ INK 7: PRINT “GN A SCALE WH 
ERE ZERO IS" “AVERAGE, "; 

1900 PRINT ° THE LOWEST RATING I 
S BELO. -sa, AND’; 
1010 PRINT " THE HIGHEST Is" "GU 
ER 30" 
1928 GO SUB 13500. PRINT 

1839 IF ANT<6& AND ANT}-6 THEN LE 
T Ag=' "AVERAGE": LET L&="682 TO 73 
1049 IF ANT<-5 AND ANT »-21 THEN 
LET AS="BELOL AVERAGE": LET L$=" 
6075 65 65 TO 71" 


247 


1950 IF ANT<«<-20 THEN LET 
R': LET L§=s"6@ OR LESS 65 


aut 


c 

E 
1069 IF ANT:-45 THEN LET Ags VER 

E 


: ANT ¢<-60 THEN LET Ags" UER 
» VERY POOR” 
SFE = ANT > AND ANT & 15 THEN LE 
TASS "GOOD": LET L&=s" 74 TO &C 
73 To 85" 
1932 IF ANT > 14 THEN LET Asst EXTR 
EMEL* GOOG": LET Lge=2"S1 PLUS 
SE =H ys" 
1100 PRINT “THIS INDICATES YOUR 
HEALTH STATUS IS “i AS 
1113 FOR J=xl TO 5@0: NEXT J: OLS 
PRINT PRINT 


: : Fi 
11209 PRINT TAB 3; "LIFE EXPECTANC 


1130 PRINT ‘TAB 6; INK 5) “MALE 
FEMALE" 


1142 PRINT “TAE €&;, INK 8) L8 

L150 STOP 

1160 FEM #2 ¢e$eHe¢4% 

1i78 REM ACCEPT INPUT 

4180 IF INKEYS$¢:"°" THEN GO TO 11 
Far 

1138 LET ASSINKEYS = 3 
1200 IF Asc RAR" OF RAE “ THEN GO 
TG 1156 

ora PRINT . PRINT INK 6; "OR. °. 
ase ue 

pect BEEP .4,5+ (CODE AS-E5!: RET 
1SESR FEM Hee Hee HeHeeHeeHe 

1240 SEM DELAY YSPACE OUT 

1250 FOR J=1 TO 260: NEST J 

1263 CLS 

1270 PRINT ae 
1280 PRINT INK 6&8; "WHICH OF THE §F 
OLLOLMING ITs CLOSEST TO THE 
TRUTH (SELECT ONE." 

1230 PRINT 

1300 FOR J=l TO 100: NEXT 2 

nea” BEEF 1,15: BEEP .21,20: RET 
UR 


FUZZY RITA 


18 REM FUZZY RITA 
BO G2 SUB L388: REM INITIALISE 
30 SO SUB 1168: REM GUTPUT SPT 
IIHS 
40 50 506 1250: REM OISCRININA 
TION SETIONS 
BQ GO SUB 246: REM QUESTION US 
ER 
BS G0 SUB 450: REM MAKE OECISI 
OM AND UPDATE RHGWEEP SS BASE 
YQ PRINT INK i TAB 3; "PRESS <E 
NTER> TO CONT INDE" 
BQ IF «$¢ THEN INFUT LINE I 
$: GO TO So 
SO PRINT INK 6: TAB 6; “TRAINING 
108 PRINT INK 6; TAB 3, OR ANY ORK 
Ey’ THEN <cENTER: To"; TAB 12; "USE 
RITA" 
110 INPUT LINE *$: GO To 58 
1283 STOP 
LS@ FEM Fee eH Heese eH Heee eee ee eee 
149 REM QUESTION USER 
150 CLs 
169 PRINT "HERE ARE THE SUBJECT 
5 I CAN DISCRIMINATE BETWEEN 
178 PRIAWT 
160 FOR J=1 To TT 
158 PRINT INK 5: + “i INE a 
Sid 
200 
219 ESS 
220 Ae: THEN Boece INK &,' 
THINK OF ONE, THEN PRES cEWTER > 
230 IF *$-: THEN PRINT IHF 8: 
“I ABH READY NOW To DETERMINE 
WAITSH ONE VOU HAVE" 
240 IF x$=""' THEN INPUT LINE J& 
250 LET AbDb=.5 
266 FOR J=1 TO DG 
27S LET ADD=ADD+ADC 
252 GO SUB 15008 


249 


IF ©$ee"" AND TTs2 THEM 3 

30: REM CHECK IF GUESTION TA 
JUMPED 

PRINT ° ENTER & NUMBER FROM 


PRINT “1 (TRUE! TO @ (FALSE 
TO EMD)" 
FPRIWT ©. PRINT INK See ner 
$@ INPUT LINE Hs: IF H$="%" TH 
EN PRINT » PRINT "THANK. eau" PR 
INT STOP 

Be LET CildisvAL AS 
LET C109) sADDSeC (4) 
NEXT J 
RETURN 
REM FFF SFSSSH SEK ERE ST ETSE 
330 FEM CHECK IF GUESTION CAN & 
E JUMPED 

498 LET JUHP=L 

410 FOR W=l TO TT 

420 IF ABS (Bt, Js -Bidydii ea? T 
HEN LET JUMP=o 

430 NEXT 1 

440 IF JUMP=sO THEN GO TO 300 
450 LET ClJuUHP) =B tit, J) 

468 GO TO 368 

47Q FEM Fee eee eee Herre eer eers 
453 FEM HARE DECISION 

439 FOR J=1 TO TT 

S60 LET Bids =@: LET EtJjis@: LET 


us 


; D=.5 
S30 FOR J=1 TS TT 
S40 DSADD+ADC 
BSQ FOR xsl TO Bo 
S60 REM PLAY WITH VALUES IN NE™ 
Bf HREE LINES FOR MOST EFFICIENT 
SUL o 


a 
mA oi 

Me eAw too -ymAone o 

Bee ce me — 


cai 


be 


250 


Zz 

Bd@ FOR J=1 TO TT 

659 IF Didi:+Fil THEN LET Fisbig 
* LET @l=3 

B60 IF Eigi:F2 THEN LET Fe=E iu: 
| LET AesJ 

BYO IF FiJdi:+FS THEN LET Foseris 
: LET AS=sJ 

BGG NEXT J 

B92 SEM ++ ANNOUNCE RESULT ++ 

TOO PRINT 

Yi@ LET CFLG=0 

Y2eQ PRINT “THE wast LIKELY RES 
LT IS"'°TAB 1; INK 5; 4$(A1! 

ce IF Aea¢sAl THEN PRINT “THE WN 
ExT MOST LIKELY Is" ’TAB 1; INK & 
(AS fAS): LET CFLG=1 

T4d IF AS¢+Ae AND ASs>Al THEN F 
RINT “THE NEXT MOST LIKELY aoe 
AB 1) INK S;48(Asi: LET CrLG=2 

TSQ PRINT 

T6O PRINT INK 6; "IS THE MOST LI 
aed RESULT CORRECT F iy 
AON)" 

PPO INPUT LINE Fs 

eee Feo" AND Fees HEN 

Soa TO ?T?¢E 

FSQ IF Fae" AND xg THEN FF 
ETURE 

PQQ IF Fae" THEN Go To ssa 

Bl IF Trs2 AND Alsi THEN LET A 
Lei: GO TO 3&o 

B20 IF TTs2 THEN LET Al=l: GO T 
0m 350 

SO IF CFLG=8 THEN GO To 339 
@ PRINT "IS Wy SECOND CHOICE 


o 
non Oooh 


Palsy 
ti 
4 

1 


(Y OR Ni" 


=] 

58 

6@ IF F="N' THEN GO TO 596 

YQ IF CPLG=l THEN LET Al=Az: & 
O% TO 380 
S30 IF CFLG=2 THEN LET Al=A= S 
9 TO 38a 
BSG GO SUB 1580 
300 FOR J=i TO TT 
319 PRINT INK 5S: ui: "- | ZAR FIA 
Siti 
S20 HExXT o 


251 


330 PRINT oer 
340 PRINT “WHICH IS THE CORRECT 


S50 INPUT Al Per 
360 IF Alsi OR Al:TT THEN GO TO 


S7O@ REM ++ EDUCATING RITA = 


=r 

S72 REM (UPDATE KNOWLEDGE BASE! 
S29 FOR J=1 TO DG 

330 IF Sal, J) 230 THEN LET Bal 
Peep ieee Se oe L+5eB Ad, Ji) 6 

1900 IF {@l,J)=@ THEN LET BiAl. 
J)eCGtdi 

1910 LET BAL, Ji sINT (.541(1045 5A 
1920 NEST J 


1930 PRINT 

1940 IF Ugs="" THEN RETURN 
1QE0 FOR J=1 TO TT 

186@ PRINT : GO SUB 1LEOS 

1973 PRINT Agid) 

1980 PRINT 

1890 FOR K=l TO DG 
1100 PRINT Estki; INE 5S; Big. ki 
B hee MEST OK 

1120 HEST J 


1130 PRINT 

1148 RETURN 

L1L5Q REM +e FH Hee ere Hee eee eres 
1166 FEM GUTPUT GPTIONS 

1178 LET TT=8 

11509 LET TTs=TT+1 

1190 50 SUB 15890 

1290 PRINT INK 68) "ENTER GUTPUT 
PTION NUMBER ‘“; TT" (PRESS «ENTE 
Re TO END)" 

1216 INPUT LINE ASITT 

1215 PRINT . PRINT ASITT: - 
1220 IF ASITT, Li = “OR TTsSL. TH 
EN LET TreTT-1: RETURN 

1230 GO TO 1129 

1240 FEM $+ eH HF eEHES HEH HEHEHE KH ETS 
L250 REM DISCRIMINATION GUESTION 
1260 CLE 

1270 FOR J=1 TO TT 

12580 PRINT AiO) 

12909 NEST wi 

1300 LET Da@=6 


252 


13190 LET O@=sbaG4+1 
13280 60 SUB i588 


1330 PRINT INK. 6: “ENTER GUEST ION 
eee “| DG’ (PRESS <ENTER: TO 
END) 


1340 INPUT LINE Es iba) 

1345 PRINT : PRINT ES (DG! 

1350 IF EsibG@,1)s" " OR DY=SS1l TH 
EN LET DG= 00-1: RETURN 

1360 GO TO 13516 


S¥O REM +e eee eee eee eH eee ¢ eH Hee 


1380 REM INITIALISATION 
1382 POKE 23656,6 

1384 FOKE 23609,40 

1386 POKE 25692,255 7 
1390 BORDER 1: PAPER 1: INK 7: ¢& 
= 

1400 REM REDUCE ARRAYS IN NEXT OL 
INE IN ACCORDANCE WITH YOUR NEED 


1410 DIM A$(58,15): DIM B(50,50) 

. DIM CiSe;: DIM bisa - OIM ES(5 
@.,4@8): DIM EFisS@i: DIN FLsai 

i420 LET *g=s'" 

1430 PRINT “PRESS ANY KEY. THEN 

‘ENTERS. TF’ 

i440 PRINT “VOU WANT TO SEE THE 

UPDATED" 

1450 PRINT “RNOGWLEDGE BASE APTER 
EACH RUN: " 

14690 PRINT “JUST PRESS «ENTER: I 
FOU DON’T" 

1470 INPUT LINE Ug 

14650 CLS 

1490 RETURN 

1500 PRINT INK 2; '-------------- 


i510 RETURN” 


HASTE 


= PAPER 1: INK ¥: BORDER 1 
18 REM HASTE 
LE PORE 23605.40: POKE 22655.5 


253 


EG DIM ASiZ55.20): DIM Beles. 


LET Fg@="": LET K=@0: LET F=6 


REM £525 ee 4454544 
LET FLAG=O . . 
INPUT "> "; LINE Dg: PRINT 


IF Dg="" THEN STOP 
IF DSt TO 1i="?" THEN 60 TC 


Cen CIE 
_eaear 

I 

rm 

a 


t= tu 
OC a) OO Re on a a 


acy tac eee 


UM (Ed (ad 


5S Fis" THEN Go T 


IF E<LEN DS THEN GO TO 186 
PRINT “INVALID ENTRY": BEEP 
. 8O To BS 

IF FLAG=3 THEN RETURN 

LET FsF+i1: IF Fs256 THEN 5ST 


ey] 


ca 


at 
REM $+ E¢E¢ HE 4H HH 45% 
REM INTERROGATE 
LET FLAG=sd4: LET TRUE=0 
IF DSiLEN DS TO js'v'" THEN 
FLAG=2 
® FOR J=1 TO (LEN DS) -& 
@ IF OSi9 TO J¢edis" AND °° THE 
ET FLAG=S5: LET TRUESJ 


=5 THEN GO To 418 
27 IF DE TO Bi=a"?ee" THEN LET 


rey a Oy On ea 
4 
I 
eres 


A PORT Na  pe Be ee ee TR bee Eps 


MD Re on ee Ro 


i 


Dei TO 4) a0 7/87" THEN LE 


wt Tt 


Hi Fodh 


G=S THEN GO SUB 90: L 


51 THEN LET Fg=D(4 


44t- 


WIT Te 
11 


$iE; ste AND FL 
EN PRINT "“FALS 
FF 3,15 


rm Ts 
pars 


254 


B40 IF CODE @giEi ssi THEN GO To 
Feo 

w45 LET PS$sAS(Ei: LET &$=sB3i5 
SO SUE 880: GO SUB §5¢ 

TSG IF FLaG=4 AnD Che te Red 4° +05 
=O% THEN PRINT “TRUE” BEEP 2.2 
®: BEEP .3,15: LET TRUES 
DE@ IF FLAG=S AND FRSPS THEN FR 
INT OS 

aPS IF FLAGsS THEN PRINT FS; “+ 
is 

B38 IF FLAG=L AND FR=Gs THEN PR 
INT PS 

355 BEEP Os, 

330 IF Eck THEN So TO 328 

409 FEM En ae apse ra en es 

416 LET F=DSid TO TRUE-L) LET 
SESDSITRUE+F TS : 

429 LET E=6 

439 LET EsE¢i 

440 IF CODE A@gi=i=52 THEN ©O To 
52a 

450 LET OS$=6BSiEs:. SO SUB 656 z 
F @$=FS THEN GO To 475 

450 IF Eck THEN GO TG 436 

470 LET H=0@ 

$32 LET H=H+l 

4350 IF CODE BSH! =32 THEN GO To 
468 

SOQ LET D$s6S iH) GO SUB 6850: L 
ET PSSAS(E): GO SUB 680: LET Wse 
Po: LET PSSAS CHI: GO SUB Baa aS a 
QS=s65 AND WEsls THEN PRINT Ws 
SiO IF E«h THEN GO Toa 459 

S2QG PRINT INK 6; TAB &:" 3: END oO 
F ANSWER «' 

B38 GO To Sa 

EOO LET T=0 

619 LET T=T+1l 

B23 IF Sit Ta Ti=s'®" THEN LET 
PS=sP$i TO T-1): RETURN 

B30 Go TS 616 

B50 LET T=6 

66Q@ LET T=T+4+i 

B7O IF o€iT To Tis"@" THEN LET 
US=R TO T-13: RETURN 

S75 BEEF ,G2,.9 

B68 50 TO 669 


255 


19 REM EASLE ae 
BQ BORDER 1: PAPER 1: INF C 

Ls 

> o Patt a] 


cyt 
Bae ar 
mr 


DIM Yid@i. BIN = 


Ep CN a Ga 
Woe et 
c 
| 
wr 
Hi 
z 
am 


Hw 


* JAB: 4.189 — 
Ag="" THEN BEEP 1,-15: & 


— 
m1 
Wend TT Ca 


tl 
=) 


n 
‘tT 
Dt 
a 4: 


4 . : 
@: LET ¥(Ji=s0: LET 


el 
mice 
| 
C 


FEM #445544 ¢¢ee ee HF SHEE ET EES 
LET R=@: LET 520: LET T=0- 
FIRST=@6: LET CSECND=@: LET 
a 
FOR J=1 TO LEW AS 
LET Be=Asi) : 
TF BS$="(" THEN LET 3=s5+1: 
iS}=eJ: IF T=@ THEN LET CFIR 
J: 


Be=")" THEN LET TaTt¢li: Lb 
: IF CSECND<:@ AND EDGE 


aoe 


mr 
ON = Ci Ae 


vv 
a 
Ms 
4 
4 
= 
c 
o 
1 
i 
4 
+ 
yy 


Hee ea 


Am 
i 


AND Be") THEN LET 


~ f- 
Hee 


Shei aM Wn WH 


yy 
ae i 
CSECH J 


S=T THEN GO To 260: REM 
NCE 


CH Tees 


,-10: IF 3:T THEN PR 
SING es ye 
THEN PRINT " -: NISS 


vo ff 


256 


m om 


Lo ie 


ri 
TCT COT A ETE COU CT CO) COT Th fo Be fe fe fe ff 


Cau Ch) OTe Co C0 Te 


2V@ IF Agi To Si s"cCAR ¢° TH 
T_FLAGs1: GO SUB 420: GO TO 
= ZF ASl TO Bi s"CbR ¢" TH 
a AGs2: Go Sus 78: Go Ta 
= IF ASl TO Bi =s"CONS f° FT 
E LAG=2: G2 SUB 55a: 60 T! 


REPEL 


oi 


a 
ui 
| 
ia] 
= 
| 
I 
m 


Cb 


atal To WMA No NW a 
ud 


ww oa OM Oa oR Fa 
i 


630: 60 TO 34 


WI 
oc 
tae 
c— 
ma 
1 


IF A@Si TO 4) s"EG (° THEN LE 
G=5: GO SUB F5e@: GO To 
IF ASl TO 8B) s"NULL it" T 
LAG=6: GO SUB 326 
iF FLAG<:8 THEN GO SUE 356 
50 TO 48 

+ 


RETURN ANSWER #+ 
ne VALUE LS." 


bo 
a ra 


tT 


ee" i)" THEN PRINT 
IF Bes" 3 THEN PRINT ° rH 


BEEP .3,.28: RETURN 
FEM alata ial EF aka 


+e CAR 


REM 


BEM. SSRESHSF HES HEHEHE ESSE EES 

REM ++ ODR $+ 

GO SUB 423 

ET LBE=s=LEN B+? 

ET KKSLB+EDGE-2: IF KR:LEN 

EN LET KKSLEN AGS 

T BSs" ("+AsilLB TO 
BS(LEN EBs-1 TO } j 
BS=sBbSi TO LEN Stree a 
Bgsieis” “ THEN LET Ses" 1 


DO ess es cs 


a 
i 
Tr 
4 
a3 
5 
5 
5 
= 
3 
$ 
a 
7 


rm 


ATTIC eat 


_ 
M SSeS SEH ¢ HH Fe HH ESE ES 
M ¥¥ TONS + 
+ 
as 


bes ces cess cE Bc) 


E 
EM 
RE 
LET BS=Asi? TO 3 
LET Js 
IF B$lijs"(" THEN LET J=1 
LET JeJd41 
& IF BS$(Jis° i" THEN G2 TO 826 


257 


Voc 


f= ca rT na b= 


eee ee eee Le a) ee 


j B 
ue iS 5 
+ Gi 
BG LET BSsbsi TO LB} ; 
BG IF BStLEN Bs-1 TO j= i TH 
E ET BSsbsi TO LEN Bs-fie 0s" 
RETURN 


REN ¥¢ ATOM ++ 

LET AGSSASIF TO LEN AgS-L! 
LET J=@: LET Bs="NIL" 

LET Josth 

IF AStUis" “ OR Agi sU ES T 

(-ETURN 

TF J<LEN AS THEN GO TO Fee 

LET Ba=s"T°" 

RETURA 

REM #4545554 ¢ 55 844557 FFF 

REM $s EG $+ 

! = i5 To 3 

=Agi TO LEN Ags-L 

@: LET BS="NIL" 


+ 

+ 

=") THEN RETURN 
Jia" " THEN GO_TO S72 
EN AS THEN GO TO 52 


ea) 


od IT dd ed TT ETT THT 


TOT Fe a te UC 


J~-J~-J 
J 


| 
2 
_ at 


- 
m 
| 
Ce 

= ae ZT oa WE 1 eA 


re 
rm 
~| 


Fi $* 1.0 
tH 
Lon 


E 
5 
SO IF Jé a 
6@ FRETUR 
FO LET CssAsl TO o-l!} 
LET A SAI I+¢1 Ta 3 
aa os=sAs THEN LET EBss°T" 
Pa at 


7 
ms 


REM FFF F REESE HE SEH HESS SET EES 
REM ## NULL +4 

LET Be="NIL" ; 

IF @s="NULL (3" THEN BEEP . 
PRINT “ILLEGAL - NULL NEE 
SUMENT": LET Bg="" 

F AS="NULL ((77". THEN LET 


— 
30 
31 
55 
= £4 
a4 


B 
8 
3 
eo I 
= 
A 
ro 


ee 


ti 
RES; Re 
Meu a 
{ 


ro 


@: 
R 


a a a 


ETURN 
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PROLOG-A 


5 FPRPER Ll: gUGEEE 2 TNE 

18 REM PROLGG-A (SIMPLE FRONT - 
EW}WD] mae 

15 PORE 23605,40: PORE 2t655.,5 

ZO REM = ALL INPUT IN UPPER CFR 
SE + 

8 53 Tt Sa 

@ PRINT "N 
RETURN 

GO SvUEB 3: 


+HHt 
PRINT 
PRINT 


~ J A 


Wee 


AT 


THEUT 


* & 


baad 

SQ IF Jg¢=' 

Se CLS 

35 PRINT I 

LiAT @,18; "FP 

1898 F go" 
BE lea. o Ta 

18 F Si T 
E om a 5 c 


wt 
YHOO HEH 
a 
# 


Taine 7 ie 
mi 


WED 


ad 
a. 


AR Lele = 


+ 
BET reir 


~ JOC On Loe Te 


UG GHeacamigg: 


LET LuJsL 
LET J$=J 
RIP FINAL 


Us 
PEED 


LET FLAG 

IF J8¢ T 
T JS =08 (5 zB 

LET RU 


wt 


ft 


ee 
ME chug coe 


46 
ra 
TT 


Fa 


O (MORE) ANSWERS". 


27G: REM INITIALT 


SHSH Her HHeHHHHE 


SE 


on 
' 
nn 


: LINE Js 
THEN STOP 


Q, 


At 6 
8 


Kh oOF) PRPER @; FLeSR 

LEASE WAIT" az ok 
IST ALL" THEN 6O SU 
7O 

G -SrerLIsT “ FHENL 
pt" “> GO SUB 350: 


Ne TH eel OT E 
INPUT L&: LET JS=sU5 


EN J 
=9 
O 4) s"ADDi' THEN LE 


LET FLAG=iL 
AG=O: LET PLUSFLA 


To LEN Js 


‘LEN JS THEN GO TO 
TOGO ReSis" IF “ THEN 
=F: LET FLAG=E 


259 


4:3>LEN J& THEN GO TO 
TO Redis" AND “ THE 
13LEN JS THEN GO TO 


3) ="SUMt" THEN 


n 
+ 


230 IF J$t(h TO R+5i s"TIMES i” TH 
Et} LET ARITHFLAG=2 

235 IF (R453 :LEN J THEN GO TO 
24! 

Ze IF JS(R TO R+Si 2" LESS “ TH 
EN LET ARITHFLAG=3 

B45 IF (A+2):LEN Js THEN GO TO 
222 

250 IF J8 (Ff To R+e! se" INT THEN 
LET ARITHFLAS=4 

2EQ HEXT & 

265 IF LEN J$<2 THEN GO To 275 
270 IF J$( TO BSys"Isé" THEN LET 
JISSI8(4 TO ': LET FLAG=e 

2V5 IF LEN J$¢410 THEN GO TO #55 
BEG IF Gs) TO LO) SstwHICHin . 
THEN LET J$sJU$(11 TO 31: LET FLAG 
2ES IF LEN J$<168 THEN Go TO 708 
290 IF Js! TO 16) s"WHICH I (% 1 

- * ° THEN LET UssdstLl? TO LE 
T FLAGSd 

S@O3 IF FLAG=08 THEN PRINT “SYNTA 
* ERROR’: GO Toa 7a 
318 LET LJsLEW Js = 
S20 FEM HO SEND TO RELEVANT Su 
Bee anes : 

SIO ue LUSFLAG.::0 THEN @c SUB 


To oO. REM ENCODE RULE 
NG AND -_ 
RULEFLAG<:>@ AND FLAGI:S 
SUB 1210: REM ENCODE Ful 


a 


eae 


TA 


1 

f* 

Let) 
at 4 
Cone | Pe) 


i i 
S5@ IF ARITHFLAG::@ THEN GO _2U5 
2430: GO TO FO: REM ARITHMETIC | 
S60 IF JS(LEN 38-2 TO ps oe" 
BR 'STLEN JS$-2 TO j= f ‘ THEN LE 
T sisi TO LJ-2) +" 
~ LET LJ=sLEN JS 


th 


fa 
ee ed a] 


mm 


THEA TH 


FLAG=2 THEN GO SUB 520: 


mI 
m 
Ruy ze 
tH 


A 
FLAG=S THEN GO SUB G18: 
REM WAI 
4120 IF FLAG=d4 THEN GO SUB S28: 
REM WHICHS 
428 60 TO Fe 
430 FEM Fs eeeee eer eee eeeeeee 


460 IF 4:50 THEN GO 
459 PRINT INK 5; FLAS 
me Ruck BEEP 455.25 
EGO RETURN 

Sl@ REM $+ see eeeeee ee Heeeeeeears 
S30 LET k=8 

B40 LET Kak +1 

SSO IF CODE S$iki =32 THEN oo To 


SEQ LET Ag=ZHiK}: GO SUB S500: 
Li: AS 


LET J$=2J8( TO LEN JS-1 IF =) 
Kk 6; "VES": Oo 


$+" " THEN PRINT IN 
TO 536 

BYQ IF Ki508 THEN Go TO 543 

S39 PRINT INK. ao? “RO 

S90 BEEP 1.1 BEEP .3,15: RET 


EQS SEM ++ e+ FH er Heeee eters 


610 REM WHICH 


mim 
f+ 
Le] 
mr 
rmrt: 
—|- 
‘ge 
u 
© 


IF CODE 2$iki=s32 THEN GO To 


LET ASSES(K): GO SUB S500: 
i TO LEN OS? THEN PRINT 
a 


“UOT Fa 
LA Geggge 


tH 
TWoAMHH 


Ta 
“il 
rn 
4 - 


INK S;AS8¢(LEN Js TO i 

B50 IF Ki50@ THEN 60 TO 822 

B90 G0 SUB 46 

B55 BEEP .1,10: BEEP .3,.i5 

TOO RETURN 

FiO REM + GUERY STARTS WITH & = 


261 


P20 LET Jsed8i53 To LEN Js! 

Y2Q LET LJUsLEN Jf 

748 LET = 

SOQ LET Reak+1 

76O IF CODE 2$iki =32 THEN GO TO 
FOa 

770 LET ASSZS(KI: GO SUB 3500 
LET @S=AS (LEN AS-LJU¢1 TO } © 
VEO IF Bs=I5 ee PRINT IAK 8:4 
$f TO LEN AS-LJ-1 

738 IF «500 THEN 50 TO 5G 

SOG Oo SUB 46 

BO5 BEEP .1,18: BEEP .3,15 

S180 FETURN 

S20 REM FFs He HSs Hee ee eH Heer eree 
B3@ FEM WAICHS 

S42 LET ae TO Ld-2) 

B58 LET LUslEn Js 

S60 LET K=8 

B70 LET Karn 4+1 

S60 IF CODE 2$iki=s32 THEN SO TO 
368 

S30 LET LFLAG=a8 

SS5 LET Agssrsik 

3068 FOR Leal TO 3O@-LJ os. 
310 IF Aag(L TO L4¢Lo-1! sUs8 THEN 
LET LFLAG= 

S20 HESXT OL 

330 IF LFLAG=0 THEN 6G TO 358 
335 GO SUB S500 

$40 PRINT AS( TO LFLAG-2!; AS (LF 
LAGH+LJI TO 3 

345 BEEP ,05.0 

S5Q IF 4 <5@0 THEN @©O TO 578 

358 GO SUB 40 

S65 BEEP 1,18: BEEP .3,15 

S708 RETURN 

SEQ REM fee ee Heese Hee SHH er erers 
350 FEM ELST 

1938 LET k= 
1918 LET Rekel 
1920 IF CODE Z$iki ste EN RETUE 
bd 

1030 LET LFLAG=8 x. 
1040 FOR L=l TO LEN ZHtRI -LEN JS 
19583 LET ARS=ZSIK:: IF AS iL To b+ 
LEN J$-1: 20% THEN LET LFLAGHl 
19063 NEXT L 
1078 IF LFLAG=HL THEN LET ABaLEIF 
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': GO SUB &598: PRINT INK 6&8, AS 
1675 BEEP ,O5,95 
1080 IF &§<5@@ THEN Go To 1810 
1938 AETURN 
LiO®B REM $$$ eee eee e He HeHeeeeeeee 
1110 FEN FORM RULES 
1120 LET R=eRULEFPLAS 
11360 LET EgS=J8{ TO Bi: LET FaaJts 
(Red TO | 
1148 IF Esiljis:"e" THEN PRINT IN 
a e FLASH 1; "RULE ERROR’: GO TO 
Le 
BQ SEM NEXT LINE DETECTS INPUT 
LIKE * EATS \Y IF ™ IS-A ¥ 
6O IF FS(LEN Fs-1 To }2s'’ " TH 
So TO 1338 
oO PRINT INK Fi TAB &) 'COHPILIN 
RULE" 
Sa FOR T=1 To 166 
SQ LET AeiTi st" 
88 NEXT T 
16 LET ESsEsis TO } LET FSF 
Oo LEN Fs) 


LET Kskel 
ead CODE 2Sik} =S2 THEN Go TO 
LET ASSZg(Ki: GO SUB 55¢ 

IF AS(LEN AS-LEN FR+1l TO 
THEN GO TO 1376 

LET FRRSRR+L 

LET Rg CRRA =Ag f TO LEN AS-LE 
+ 


PRINT “3: “;: LET Ags 
SUB 2500: PRINT INK 6€; 
BEEP .1,10: BEEP .3,1 
GO TO L236 

IF RR=8 THEN RETURN 
LET RO=9 

LET RCSRO+1 


WMT MMMM EERE BH 


J GU C0 OT a can 
mn ils 
tncTan 
Ht 


Gee ec kel eae BUGGGet1Gooe! 


AHL hn 


PREP EPRPEEPEER PEZEEPY EE PPP RPRPEEPOE ME ip 


3a LET 2RiKI SRE IRC! ' 

348 IF -<5@Q THEN LET K=ke2 

350 IF ACcRR THEN GO TO 1228 
388 RETURN 
370 IF K<500 THEN GO TO 1z22¢ 
268 AETUAN 

390 REM = RULE WITH 2 VARISEBLES 
140@ “JR Tel TO 190 
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14109 LET RgiT}="" 

1420 NEXT T 

1450 LET K=O: LET RR=O 

1440 IF K=500 THEN RETURN 

1450 LET Keke1 F 
146@ IF CODE Z#iKi=S2 THEN GO TO 
177@ 

1470 REM SPLIT INTO THREE WORDS 
1489 LET O$=Z28(K) 

149@ LET J= 


J=9 

1503 LET Ja=J+i 

1510 IF o$iJ TG Ji=" * THEN GO T 
Oo 1540 
1520 IF J:LEN OS THEN GO TO 1566 
1533 PRINT INK 5; "RULE COMPILING 
ERROR: GO To FO 

1542 LET Ag=O8i TO J) 

155@ LET o$=08(44+1 TO 

1568 LET J=8 

1570 LET JsJ¢l 
1580 IF O$idis" " THEN GO TO 161 
re 

1590 IF J+LEN &$ THEN GO TO one 
JE@G PRINT INK 5; ‘RULE COMPILING 
ERROR’: 60 TO FO 
16106 LET $$! TO J! 

1620 LET @$sO8(U+1 TO 3 
1630 LET J=8 

1648 LET J=J4+l eo 
aac IF G$(Jis" " TREN Go TO 1665 
Q 
1660 IF J§<LEN GS THEN GO TO 1646 
1673 PRINT INK 5S; "RULE COMPILING 
ER SO To tag 
1653 (INT IME TRE &; COMP hM 
G RULE" 
16350 LET Cg$sGs! TO J) 
1700 LET M$sFSiS TO S+LEN BS-1: 
17id IF Bo rM$ THEN GO TO 14468 
1728 LET RR=RR+1 ; 
43730 LET N&SES(3 TO LEN ES$-d: 
1740 LET RS(RR) sAStNSSCHE+ RE" 
17EG@ PRINT “> "|; :. LET Age Reith tRd 
> SUE ESGG: FR 


JE 2500: PRINT INK &) A$ 
BEEP .1,19: BEEP .3,15 
60 TO 1446 

IF RR=@ THEN RETURN 

LET M=O 

LET M=Mei 
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a 
NT 
i—4 
a 
8 
a) 


wi w uw wo yw 


Qe 


2000 


UFO NO NO.G 19 
Oe 
Ifa: 
ec 


LET AGSZH(KI: GO SUB F500: 
INK 6; 45 

BEEP ,65,6 

IF & «580 THEN GO TO 15560 

RETURN 

REM ++ EFS SHEE SHEESH SERS ESE 

FORM RULES WITH ‘AD’ 

OF THE FOLLOWING 

Boh faa ae 

FEM i EATS \ IF = IS-A 
BIRD AND YY COMES-IN 
BOSES} 

REM & STATEMENT MUST BE IN 
LIST PRECEDING Y FOR 
ALL EXAMPLES To BE 
CODED 

REM SPLIT INTO SECTIONS 

LET J$SJ$(2 TO 3}: REM & 


PRINT INK FI TAB &) 'COMPIL 


LEGO IF M+RR THEN RETURN 

1510 LET ZHiki sae ih) 

Le20 IF K=508 THEN PRINT IHR 3; 
FLASH 1; "OUT GF MEMORY": BEEP .5 
,L5: GO To 76 

1330 LET Beets 

1340 60 TO 17 

1550 FEM Ree ine Pe reehoe bay 
1560 REM LIST ALL 

LEVO PRINT 

4550 LET K=8 

1390 LET R=kK+i1 

anor IF CODE 2$ikj =32 THEN RETUR 
1gL 

FRI 

1315 

132 

133 

Lad 

135 


nN: 
m 
= 


TRIP 
IM 


LET Jesd¢i 
IF J8(Jjs" " THEN GO TO 286 


IF J¢LEN JS THEN GO TO 2828 
PRINT INK 5S) "RULE COMPILIN! 


ERROR’: QETURN 


Baya 


2080 
2050 


LET. £§sd8 ( TO J): REM RELAT 


LET JS=U5 G47 TO i: & 
STRIP TO START GF & 
RELATIONSHIP 

LET J21: LET COUNT=@ 

LET JsJ4i 
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2100 IF JsiJis" “ THEN LET COUNT 
Shee peas 
2110 IF COUNT SS THEN GO TO 2148 
2120 IF JsLEN J¢ THEN GO TO 2056 
212e PRINT IHK 5S; "RULE COMPILING 
ERROR: RETURN 
Z1ld0 LET BssJ$i To J): REM STATE 
MENT 1 . 
215@ LET C$sJUg(U+8 TO 3: REM STS 
TEHENT = 
2160 IF Cs". * THEN PRINT “RULE 
COMPILING ERROR. RETURN . 
21i7a REM NOW Go THROUGH DATABASE 
2LlES FOR T=l Ta 206 
21938 LET ReitTi =" 
2200 HEAT T 
2210 LET FisG: LET FRe=39 
#220 LET K=8 
2230 LET Rak+1 rs a! 
2240 IF CODE 7S (Kj) 232 THEN GO TO 
2316 
2250 IF Risss GR R2s200 THEN PRI 
HT “MEMORY SHORTAGE': GO TO 2510 
2268 LET LE=LEN Bs 
ZETO LET ASSZHiK): GO SUB S500: 
IF AS {LEN Ag-LB+1 TO 'sB$ THEN L 
ET FlsRi¢il: LET RtRL! =Ag! TO LE 
tH Ad-LE} sii 
2250 LET LCO=sLEN Cs 
22350 LET gaze (Ki G0 SUE &50G: 
IF AS{LEN AS$-LC+1 TO }=C8 THEN L 
ET Re=R2+1: LET R$(RE) =A$i TO LE 
tH Ag-Loi +e" _ 
2300 IF K<s500 THEN GO TO 2256 
2219 IF CODE R$(10@)} =32 THEN PRI 
HT INK Si 'STATEMENT 2 OF INPUT WN 
OT IN DATABASE': BEEP .1,10: BEE 
P ,1,15: RETURN 
EBS20 REHM WO) ENCODE RULES 
SSQ LET Ril=sO®: LET Re=33 
T4Q LET Reske+i 
2et50 LET Aiski¢i ; 
256Q IF R$iRiis" " GOR Reihers" " 
THEN GO TO 23708 
2562S GO SUB S600: GO SUE Bree 
2565 LET 2si K slig+Tgtuge” ee, 
2370 PRINT "> wos LET @mSsegerks : 
G0 SUB E5a6 PRINT INK &) AS 
BB75 BEEF .1,10: BEEP .3,15 
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25 LET KRek+1 $ 
23 IF CODE FREtRE+ Li 6:32 THEN & 
a 2346 
= IF CODE RS(R1l+1) «+32 THEN & 
0 2358 

RETUR ES 


REM +455 4554555555 H55¢H¢¢5¢F 
REM ARITHMETIC 

LET LJsLEN Jf 

IF ARITHFLAG<:> THEN GO SUB 


IF ARITHFLAG=H=S THEN GO SUE 
IF ARITHFLAG=4 THEN GO SUE 
RETURN 


8 

a 

o 

a 

Oo 

3 

S 

Fa) 

Pa} 

o 

@ 

a} 

8 

a) 

+a) 

a) 

[a] REM SEES H Hs: SUN TIMES +#se4+ 
@ LET JssJUgi5 TO LJ 

a IF aT? TO 3y)2"S." THEN LET 
ra) 
a) 
3 
a 
a 
a 
a) 
3 
E 
a} 
Pa) 
@ 
3 
a 
D 
Pa) 
8 


DUDU PUP SU LGR ee ok anf oe a ee ae 


MaGAIGGUG. SOGGOCTTOGHGCGIGIOS 


wb TH 2E40 
PRINT INK S/ TAG &) “ARITHHET 
RROR': RETURN 


OOO On 


ots — TO fo te ena — a Po Po Po Na a Pa a a a 


Bt LET LUSLEN J 

=| K=8 

8 

qe 

T 

T 

= : 

BS : 
c (REO SETUBN 
640 LET LEN J 
BE@ LET 

Bee 

Bra 

To d 
mem | br 
Bog : 
Co Mt = 
2703 E 
Q 
27193 SB? THEN LET AN=L 
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2723 IF CODE BS:57 THEN LET EBN=e 
EV3G IF CODE C$:57 THEN LET ON=4 
2740 LET GUIDESAN+BN+CN: IF GUID 
E=3 OR GUIDE=5 OF GUIDE=6 THEN G&G 
Oo To 2658 

2750 IF ARITHFLAG=2 THEN GO TO 2 
S280: REM TIHES 

2760 IF GUIDE:0® THEN GO TO 27968 
2770 IF VAL AS +VAL BSsVAL Of THE 
MH PRINT INK 6; "YES": BEEF .1,16: 
BEEP 4.9), 25: RETURN ; 
2VEG PRINT INK 6: "NG": BEEP .l.i 
®: BEEP .3,15: RETURN : 
2730 IF GUIDE=1 THEN PRINT VAL 
S-UAL BS: GO SUB 40: RETURN 

2800 IF SUIDE=2 THEN PRINT VAL SO 
S-VGL AS: GO SUB 40: RETURN 

2E1O PRINT INK S&S) UAL ASt+UAL BS: 
69 SUB 40: RETURN 

2520 FEM + TIMES + 

Z2S30 IF GUIDE:>@ THEN GO TO 25688 
ZB40 IF URL ASEUIAL BSsVGL Of THE 
N PRINT INK 6; "VES": BEEP .1,128: 
BEEP .3,15: RETURN 

2S50Q PRINT INK 8: NC": BEEP 1.1 
@®: BEEP 3,15: RETURN 

ZE6Q IF GUIDE={1 THEN PRINT VAL SC 
BeVAL BS: GO SUB 40: RETURNS 
2570 IF GUIDES? THEN PRINT VAL 
$UVAL BS: GO SUB 40: RETURN 
BESO PRINT INK 8) UAL ASSURARL BS: 
GO SUB 40: RETURN 
S25S50 FEM +544 4¢5lLESSe¢e¢ 4+ eee 55% 
2390 LET WF=o 
2910 IF CObE 38:56 THEN LET NFeal 
: REM MHUMBERS 

gid 

a 


LET COUNT =0 


" THEN LET OGUNT 


60 IF COUNT = 2 THEN GO TO 2eae 
YO IF (LEN JS THEN £0 ad 2540 
5a ERINT INK 5S; TAB 7) “COMPARIS 
‘a rm mu 
2530 EET URN 
SQOQ LET B5s35/ 
SOLS LET Agsstgi 
bale, = ’ T 
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3030 IF _AS<BS THEN PRINT INK 6; " 
VES": RETURN 
3040 PRINT INK 6; "NO": BEEP .i.2 
@: BEEP .35,15: u 


§ THEN PRINT 
i : ; 


SO70 PRINT INK 6: "NO": BEEP .1,2 
@: BEEP .3,.15: RETURN 

SOSO REM eee 4¢S INT See eee eeze 
SO98 IF J$(LEN Jg#-1 TO } =" °° TH 
EN Go TO 31968 

3198 LET K=6 

31180 LET K=kK+1 

F120 IF J$tKkis" ' THEN GO To 216 


S130 IF KeLEN JS THEN GO TO Sli 
iG ERROR INK 5S; TAB F. “RRITHNE 
ROR" 


A 


5a LET ASVAL idgi TO K-13! 
@ IF INT A=A THEN PRINT IE 
ES’’: BEEP 15-20% BEEP «3525. 


a ‘PRINT THE. JUNO": BEEP .i.l 
FFP .3,15: RETURN 


mn 


aun 


IF J8(Ki=" “ THEN GO TO Ged 


rE 


Salto 04D - 
haf: eM 
wi 
2oe ce 
r 
m 
ie 


S220 IF KLEEN GS THEN GO To FEao 
S230 PRINT INK 5; TAB FP: 'ARITHNET 
It ERROR’: RETURN 

Se#4@8 PRINT INE 6; INT (VAL fos: % 
O KeL333 


RETURN 

PEM SF 545554 FEF SHEESH SHE ES 
REM INITIALISE 

ELLs 


DIM 2E$(5GG.38):. DIM ARSt2aS 
RETURN 


bes Es Ds) 


2 


ILL CL 


ACA NIN ha fh fa 


Ge ut) oe 


CS) Ea 
f= 
mim 
gf 
43 
li: 


Oo Le 


cnen 


oe 
cm 


HOG 1 


ta fap 
(Cy Ga ta 
if 
rm 
~| 
+ 
" 
| 
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S603 LET Be=Rs$iFh1i LET Tes. 
6605 IF B$iTi s"@" THEN GO TO S62 
@ 

$613 LET Wgssbsl TO T 

S620 LET T=T4+i: Go To &6G5 

S630 RETURN : 

BPO LET Bsshsihe:: LET T=i_ En 
BVOS IF BsiTi="&" THEN GO TO FFs 
a 

BP1lG LET Wesbsi TO TT) 

6720 LET T=T+1: Go To &ras 

6?30 RETURN 


SSLISP 


16 REM 5.5. LI " 
: 22 S50 TO 3456: “REM INITIALISAT 
hy 
SO REM 445544 eee ee HH HEE HEE TE 
40 LET ASSASI1E TO LEN Ag-1) 
BQ RETURN 
BO REM eee eeeeeeeeeeee Herter 
FO PRINT 
6S LET WN=o 7 
3S@ INPUT LINE Ag: FRINT ": GA 
| 
19@ IF Ag="" THEN BEEP 1,-15:_ 5 
TOP . REM JUST PRESS «RETURN: TO 
EWO RUN 
LIB REM sees eeee ee ee ee Heer err ey 
l2Q FOR J=1 TO 12 
139 LET XtdisO: LET wf0)s@: LET 
ZiJdi =8 
148 WEST J 


169 LET f=@: LET. 
LET CFIRST=@: LET 
EDSE=0 

179 FOR J=1_70 LEN As 


138 IF Best" THEN LET S544: b 
Bisa. T=0 THEN LET CFIRS 


ti 
1 
tH 


Fo $=") " THEN LET T=T+i: Lb 
}=.: IF CSECND<>0 AND EDGE 
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=@ THEN LET EDGE=J-1 


1 AND Bg=2°)° THEN LET 
220 1 " " THEN LET ReRti: L 
MUR) sd 
230 NEXT J 
240 IF S=7 THEN Go TO 300: REM 
(_} BALANCE | 
250 IF $iT7 THEN PRINT “ -3 MISS 
ING i" 
220 Th ST THEN PRINT " -> MISS 


INPUT "+ “; LINE 5S 


IF NWDS=s@ GR NN=l THEN GO T 


LET M$sAS! TO * 115-13 

FOR J= TO NWOS 

S30 IF MS$=N$i0i THEN LET ASs=08! 
Ji +h (LEN NSoiI' +21 TO J 


2 7=8: LET B=" 
SEQ IF Ag! TO 4) 2"EO £" THEN LE 

T FLAG=SS: GO SUB 1280: Ga To *Fée 
330 IF Ast TO 5i:s"tAR ({" Ti 

ET FLAG=H1: GO SUB S40: GO To Fes 
498 IF Agi TO Si s"CDbR £" } 

ET FLAG=2: 60 SUE $908: GO TO FES 
413 IF AS! TO Sis"*hHENG “ TREN L 

ET FLAG=5: GO SUB 1518: 6o TS Fé 


a 

420 IF Agi TO 5S) s"HAx (° THEN L 
= FLAG=SiS: GO SUB 2600: GO TO F 
6 

430 IF ASi TO 5) s"MIN (° THEN 
ET FLAG=E0: GO SUB erge@: GO TOS 
68 

446 IF ASi TO 8) s"CONS (°° THEN 
LET FLAG=3: 60 SUB S7G: GO TO FE 
8 

450 IF Agi TO 8) s° ATOM i" THEN 
LET FLAG=4. GO 5UB 11190: G5 To *F 
BS 

4590 IF AGSi TO Bi s"NULL (° THEN 
LET FLAG=S8: GO SUB 1330: Go TO F 
oo 
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470 IF Asi To 
LET FLAG=iz Sa 
TES 

420 IF Ast To 
LET FLAG=Hl4: GO 
7EG 

4350 IF Ast TO 
LET FLAG=S15: Go 
76S 

SOQ IF Asi TO 
LET FLAG=1é5 6a 
75 

5210 IF Asi TO 
LET FLAG=E1: 60 
SEO 

Se IF Ast TO 
LET FLAG=tl: Ga 
TEO 

SSO IF asi Ta 

LET FLAG=L6: & 

75a 

S40 IF Ag! TSG 

LET FLAG=HlL1L: & 

TES 

S50 IF asi TO 

LET FLAGSe2: & 

76a 

560 IF as! Ta 

LET FLAGSi4: 6G 

75S 

=e IF AS! TO 

LET FLAG=E6: & 

TE 

ESQ IF Ags! TO 

LET FLAG=25: G&G 

TSS 

Boa IF Agi To 
M LET FLAG=1S 
& 6a 

BO3 IF agi Ta 
NH LET FLAaG=ss: G&G 

TERE 

G18 IF as! Ta 
M LET FLAG=F: 6G 

76a 

620 IF asi Ta 
fh LET FLAG=25: 
co 76S 


6s ="LIsST. t* 
SUE 2136: 
6) =s"ADDL t” 
SUB 2156: 
6) ="SUBl (" 
SUB 2236: 
Si s°ExPT i" 
SUE 2560: 
Bi ="PLusS (" 
SUB 2526: 
6) ="ONEP f" 
SUB 2250: 
FIs" ZERGP | 
0 SUB 2250 
Fi SstEGuAL ff" 
Oo SUB 2008: 
Tis'hINUS ¢£ 
Oo SUB 2670: 

Ti 2° RECIP 

Oo SUB 2960: 
Fis"TIMES 

Oo SUB 3070: 
Tis"LEssp i 
7 SUB 31690: 
Si ="DEFINE 
50 SUB 3300 
Bj) ="APPENC 
Go SUE 1766 
Ss ="MEMEBER 
GO SUB 1350: 
SB) s"MINUSP { 
G3 SUB 3200: 
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Sa 


THEM 
63 


Go 


To 


THEN 


TO 


THEN 
Ga To 


THEN 


6G 


TH 
THEM 


Ga TO 
THEN 
oo Ta 


THEN 


63 Ta 


BIQ IF Afi TO 3) <"REVERSE TH 
EM LET FLAG=H1lG: Go SUB 17688: 68 
TO Fee 

Bd@ IF AS! TO Si) s"NUMBERP f° TH 
EN LET FLAG=3a8: GO SUB Si56:. 66 
TO Fee 

B50 IF Asi TO LAis'GuUaTIENT i" 
THEN LET FLAG=23: GO SUB 2320: 6 
Oo TO Fae 

B68 IF Ag! TO 10) ="GREATERP 1° 
THEN LET FLAG=HE?F: GO SUB 21a: 6 
o To Fee 

BYO IF Ag! TO Lli=s"REMAINDER ! 

THEN LET FLAG=SE5: GO SUB Bsa. 
BO To Y6o 

6F8 IF Ag! TO Lai ="DIFFERENCE 

THEM LET FLAG=17: GO SUB 2358 
T8G IF FLAG<s:8 THEN GO SUE FS 

779 So TO 7a 

TSO REM ++ RETURN ANSWER ++ 

730 PRINT * WALUE IS..." 


Hi 
Oo MOOT Oo: od 


Ne Gu oJ Ao on a 
Bg gngongngec 


4d 
now oo 


LSUIREI RRR oe en EIRENE 


Gut 00 J C0 C0 
Gy Gy GG Go aan 


i 


THEN LET BS=Bs/ 


IF Beep cy” 
IF Bes" i" 
RETURN 


REM +4 ¢ee45ee¢¢ Hee eee eH EEE 
REM %% CAR #4 


THEN PRINT 
THEN PRINT °° tH 


IF S=2 THEN LET BSsAg (212) + 
Ries 
IF 3:2 THEN LET BSsAsS if CFIRS 


CSECHD 4 
RETURN 
REM FFF FF EFF SHSSEHH EHH ESE EEE 
REM $+ COR $+ 

GO SUB 843 

LET LB=LEN B+? 

LET B=" i"+AS(LB TO EDS 
IF BStlEnN Be-1 TO LEN 
TOG LEN 
THEN LET 


as 


sea 


E 
5 i 
IF BS$if) =" 5 i 
se 
FETURRM 
REM SF 555554554 5454555547 
REM $F CONS $+ 
LET BsSsAs(7 TO LEN AS-1:) 


LET J=0 
IF 6301: TREN LET 


Leen 
aia f 


del 
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1916 LET J=J+l 7 
19280 IF Bsidis' f THEN GO TO 1¢5 
8 

1930 IF J:LEN BS THEN GO TO 1018 
1943 LET Ess" *¢ CONS ERROR +": 
RETURN 

185@ LET LB=LEN Bs-l1 hd 
1060 LET Ba" ('+Bsi TO J-1) +5804 
+1 To 3 

107Q@ LET EBS=Bsi TO LB+1) 

1860 IF EBSilLEn B$-1 TO js j ae 
EM LET BS=s6si TO LEN BS-2) +0: 


1938 RETURN 
11008 REM FTRRTS TES SEES EL eee 


1110 FEM $+ ATOM 

112¢@ LET Ag= AgS( > TO LEN Ag- 1} 
1130 LET J=0 

1140 LET Js=J4+l as 
1150 IF AgiJis" " GR ASigr stl’ T 
HEN RETURN 7 

1160 IF J<LEN &$ THEN GO TO 1146 
1170 LET Bs="T" 

115@ RETURN 

LiSG® REM SHH ee Heese HHH EH EEE Ee ees 
1200 REN se EQ oo s4 

1218 LET E=5: 60 SUB 46 

1220 LET J=0 

1230 LET JeJ+l _ 
1248 IF A@giJisti" THEN RETURN 
Zorn IF AS(Ji=" " THEN GO TO 126 
1260 IF J<LEN AS THEN GO TO L250 
12708 ZETUBN 

4260 LET C$=ASi TO J-1) 

4290 LET ASSASid+1l TO !) ae 
1300 IF Cs=AS THEN LET BS='"T' 
1310 RETURN 

L320 REM FFF EHH EE HEHEHE EEE EEE ETE 
1330 REM ee NULL _+# 

1348 IF A@g="NULL ()}" THEN LET ES 
=" ¢ ILLEGAL - NULL NEEDS ARGUNE 
MT +" 

L350 IF Ag="NULL (())" THEN LET 
Bg="T" 

1360 RETURN 

LETS FEM FH HeHe HHH sees Heee Hee Heee 
13660 REM $% MEMBER ++ 

1330 LET CS$=AsiSs TO } 

1460 LET J=l 
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14198 LET 
1420 IF 
HEN LET 
i420 IF 
1440 RET 
1450 LET 
1468 LET 
1478 IF 
HEM LET 
TO 16308 
148@ IF J+¢Leh 

TOG 1468 

ids RETURN 

1508 REM +e FESS HHeHeHHeHEHEH EEE ETE 
1519 F $F NENG $+ 

1528 | THO 4 

L538 
LS4@ L 
15508 
a] 


L566 
is? 

1558 
1550 
1668 
16108 
16203 
1636 


elo, 


J+LEN Dg-1: 


To LEN Cs-1) 


-LEN O& THEN 


b~nn2zru—u 
NcCor Moc 


44 a 


oo 


cs 


LES 


L548 


THEN 
AS THEN 


GO Ta 


}<LEM 


IF uJ 


RETURN 


BO TO 


oon 
“rhe HA A 


+o) 


i 
ij+¢2 TO 3 
{x TO. LEN 


ee-25 +" 


“-CLOen 
+ 


J+LEN OF-1L: 
Celi TO 3: & 


CS$-LEN O& THEN 


fl — U1 te 


JtLEN 


1656 RETURN 
166 isi ES 
1375 
HEN | 


1663, BETURN 


1650 REM 


“ET 
LE 
To 


7 To 


SEH ESHSEH SSS H HEHEHE H EHH EES 
#¢ APPEND #2 
EBS=sAs(S TO ) n 
BS$=sBSi TO vili-Sit" 
ESsEbS$i TO LEN BS-21! 
RM 
SSSEESSEEESESEFESEEETEE 


#$ REVERSE ++ 
ThE: <b 


Ess 


AgsAgsii2 ASA 


——— 
LET 


LEN AS$-2) 
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1738 LET cT=a 

1586 LET J=8 

14820 LET Jed+1: IF J:LEN AS THEN 
GO TO 13526 $3) 
1620 IF AgS(uis" “ THEN GO TO 1655 
Q 

1539 IF AgsiJdis’ f THEN GO TO L56 
a 

1243 50 TO 1518 ar 8 
1559 LET CTsCT+i: LET GeiCT) =AgSt 
TO J-1!: LET AgsAbiJ+1 TO: Sc 
TS 1268 7 
4860 LET JsJ+i: IF Agis TO Jeli= 
"t3" THEN 6O TO 1956 , 
1379 IF Ag(Jdi=s")" THEN GO TO 151 
@ 

1650 IF J=LEN AS THEN GO TO 1586 
1330 $6 To 1568 non ere 
150G LET CT=sCT+1:. LET GicT! =Ag+ 
“y": GO To 15938 a 
1310 LET CT=sCT+1: LET GRICT) =AS: 
TO J): 60 _ TO _ 1500 , = 
1920 LET O7TsCT+i: LET GRICT!) =A 
1338 FOR M=CT TO 1 STEP -1 

13540 LET Bs=bS+65 (4) IF M:1 THE 
No LET Bs=Bs+" " 

1358 NEXT 

1960 LET Bsa" '"+Bs+" 

1378 RETURN eee 
1550 LET CT=sCT4+1: LET GslcTi =As! 
TO J413: LET @gssASid+e TO 1: GO 
To 1808 

L590 REM Sess Fes HeH HEHEHE SEEKS 
2000 REM $+ EQUAL $+ 

2310 LET E=5: 60 SUB 46 Moye 
2820 LET M=CODE As IF M47 AND 
M<5S THEN GO TO 2376 

2938 LET J=8 

2O40 LET JsJe+i 

2650 IF AgsliJ TO J+1li="5 THEN L 
ET JaJt+l: GO TO 1268 

O60 IF Agi TO S42) 2°59" THEN 
SO To 2188 7 
2O7TOQ IF AgsSfs TO J+)lis"h3 THEN & 
Oo TO 21108 

2980 IF J:LEM AS THEN GO TO 2640 
2638 SETUR 
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(110 LET Cs=ASi TO J+13: LET Ags 
fJ+3 TO 3: 62 Ta 1508 

REM +455 545445554445 ¢¢ ee 5F= 
REH $+ LIST $+ 


LET B=" i" +Ag+")' 

RETURN 

REM ++ S FSF Ss HeH Ee HH Hee eee 
FEM $+ ADDL $+ 

LET E=":. GO SUB 49 

LET EBS=STRS (URL ASSL: 
RETURN 

REM ++ 555 $ 5+ Hee 5H +H 555545 
REM ++ SUBL $F 

LET E=": 605 SUB 49 

LET BSsSTRS (VAL AS-L: 
RETURN 

REM FF 455 ESF 4 FEES FH HESS EH HE 
FEM $+ ZEROGP ++ 
IF FLAG=15 THEN LET E=5 
IF FLAG=S1 THEN LET E= 
G2 SUB 48 

IF A$="S" AND FLAGHLE GR AS 
AND FLAGHSL THEN LET 6$="T" 
RETURN 

REM ++ FS SSS H HES HH HHH SSH ETE 
REM $$ THO RRGUMENTS #+ 
LET E=1t: 60 SuU6B 48 

LET J=6 

LET JsJ4i 

IF ASiJ} =" ° THEN &GO TO ede 


IF J¢LEN AS THEN GO TO 2328 
‘ LET BS$=s"+ ERROR - ONLY ONE 

ARGUMENT +": RETURN 

2ed20 LET PsvAlL Agi TO J-l! 

2430 LET GURL Agigel TO } 

edd IF FLAG=i? THEN LET BSaSTRS 
(FP -G) : RETURN 

Bd45Q IF FLAG=e3 GR FLAGSES THEN 

LET B=P-G 

2460 IF FLAG=25 THEN LET B=t Int 
L,540¢(65-INT Bi $1000) 1 -1008 

2ed4°O IF FLAG=H=15 THEN LET 6B=P tis 

2450 IF FLAG=l1 AND P= THEN MET 


tn: 


2430 IF FLAG=27 AND P>G THEN LET 


g=°7 
O83 IF FLAG=2e AND PeG@ THEN LET 
g=°T" 
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IF JtLEN @# THEN GO_TO é 
IF J=LEN AS THEN LET FLAG 
LET PsvaL Ag! TO J-li: IF F 
@ THEN LET AgssAg(I+1 TO DT 

IF Fee "PLUS" AND ¢T=O THEN 


Her MMM fans tonans — fo 


t 
+ 
u 


2510 IF FLAG=32 THEN LET B=F-a 
2520 IF FLAG=il oR FLAG?26 THEN 
RETURN 
2530 LET BS=aSTRS iB! 
2540 RETURN 
2E50 REM ++ 4544544 
2S6Q@ REM 
2570 LET E=?: Go 
2559 60 TO 25°? 
SSSQ REM ee Heeee eee eee er eee eres 
2666 FEM ++ WAX #F# 
++ (MIN PLUS TIMES) #+ 
610 LET FesAasi TO 31): LET ABSA 
Ee it i 
820 LET CT=s@: LET FLAG=8 
630 IF F¢="TIMES" THEN LET o7T=l 
649 LET J=8 
650 LET J=J+l pees 
B6@ IF @gigis* " THEN GO To E68 
a) 
a 
38 
30 
> 


be MQ GIO a 
G 
Hm 
“tI 


Fg="MAX" AND PCT THEN L 
FS="HMIN' AND PscCoT THEN L 
FS="PLUS" THEN LET ST=CT 
FS="TIMNES" THEN LET orsc 


ta 
Bee 
tH 
“4 


Gl 
tH 
a 


M+ mM mt 


@ IF FLAG=0 THEN GO TO 2640 

@ LET BSsSTRS (CT) 

@ RETURN 

B REM FFKFEESHE HEHEHE EHH EEE ES ES 
8 FEM ¥% MIN £# 

8 GO To 2618 

2 REM Fee HESS SHESH EHH eer ETH eS 
a 

3 

Q 

a 

3 


OO JJ Jb I TA ad 440 Dag 
i ih] 
ie 
Hi 
a 


fo haha ha po ho fo fos 


REM $$ PLUS ++ 

LET Fg="PLUS" 

LET AS=ARIT TO } 

Ga TO 2628 

FEM FSF HFSS eESSe eee eerste 
REM $+ HINUE ++ 

LET E=S: GO SUB 46 

LET B$=STRS -VAL AS 
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OO J OO F La b> 
Geeaqgueaogua 


Hho no fo no 13 fa Wg A as 
COU 


ca hentia; Restate eiagenieb inhalant 


RETURN 

REM +e 5555554 H 4+ 44455 ¢ 545 
REM $$ GUOTIENT e+ 

LET E=11: 60 SUB 46 

GO TO B37 

REM SF HFEF EHH HHH HHH ESSE HE 
REM $+ RECIP ++ 

LET E=&: GO SUB 40 
IF Ag="O" THEN LET Bes" BIL 


ION BY ZERO ILLEGAL": RETURN 


REM +444 SSH FHHSEHEHE HESS Se HE 
FEM $+ REMNAINDER $+ 
LET Ezsleé: Go SUB 48 

5s0 TO 2370 

REM #4 SF SEES SHH EHH HSH S HEHEHE 
REM $#* TIMES $+ 

LET F&="TIMES" 

LET A$=HS15 TS 3 

G2 TO 2620 

REM +4 5+ FESS HHH eee Hee SHES HE 
REM $F GREATERF $+ 

LET E=11: 60 SUB 46 

G0 TO 237 

REM 4445 $444 FH Se HHP HSE HEHE 
REM ++ LESSP $+ 

LET E=&: GO SUB 4 

GO TO 2378 

REM +4455 5¢¢ eee ee Hee 4554474 
REM ¥#% MINUSP #+ 

LET Ess: GO SUB 40 

IF WAL Ase S THEN LET Bss"T" 

RETURN 

FEM FEE FSEEFRES KHER ESE SS EE 
REM $+ WUMBERP $+ 

LET ASS=AS110 TO 3 Meh, 3 
IF CODE As: 44 AND COCE Asis 


HEN LET Bs="T 


RETURN 

REM FF SFE HE SHEESH HH ES Er HHT 
REM ++ DEFINE $+ 

LET AS=AEIS To 3 
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Jie" " THEN GO TO 335 
GS THEN Go TO 335 
DEFINE ERROR’: FRET 


Gi TO J-L! 
=NiWDS+1 


=r NWDS) =o: LET NS IND 
3 SEES SESS HS EEH HH EEE ETE 
a INITIALISE 

3452 POKE 23658,8 

3454 POKE 23609,40 

3456 PORE 23692,255 

peor BORDER 1: PAPER 1: INK 7: © 
2 

3470 CIM G$(20,20): DIM O¢(20,16 
+: DIM N$120,10): DIM X(12a): DIM 
Y(1l2): BIM 212) 

3480 LET NWDS=0: REM COUNT OF US 
ER-DEFINED NEW WORDS 

S490 GO TO 9 
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BBC Micro 
THE AUTO MECHANIC 


19 REM THE AUTO MECHANIC 

24 MODE 6: VDU 19,9,4593 

3@ PRINT"SO YOU’RE HAVING AUTOMOBILE 
PROBLEMS. ” 

499 PRINT"LETS SEE IF WE CAN PIN DOWN 


THE TROUBLE...!" 


Se 


PRINT 


69 PRINT"ENTER A LETTER WHICH DESCRIB 
ES PROBLEM: ”" 


7@ PRINT 
8G PRINT" A 
96 PRINT" B 
T START" 
198 PRINT" Cc 
RAIGHT AWAY" 
116 PRINT" D 
Lat" 
126 PRINT" £ 
GHLY" 
13¢ 
144 AS=INKEYS(@) 
150 IF AS<"A" 
168 GOSUB 1576 
178 
3G, 1352 
18@ END 


ENGINE WON’T TURN OVER 
ENGINE TURNS, BUT WON’ 
STARTS, THEN STALLS ST 
CAR RUNS BUT STALLS A 


CAR RUNS BUT IDLES ROU 


IF INKEYS(@)¢>"" THEN 136 


OR AS>"E" THEN 144 


ON ASC (AS) -64 GOTO 264,589, 1200,12 


LID REM KEKKHKHKHKKHKKKKKEK KEKE KKK KE KEKE HK 
299 REM WON’T TURN OVER 
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219 PRINT"WE’LL START BY CHECKING THE 
BATTERY." 

224 PRINT"TURN ON THE LIGHTS." 

239 PRINTTAB(6)3;"ARE THEY DIM?” 

249 GOSUB 1524 

259 IF AS="N" THEN 35@:REM BATTERY Q.K 

269 PRINT"ARE BATTERY CABLES LOOSE OR 
COGRRODED?" 

270 GOSUB 1529 

289 IF AS="Y¥" THEN PRINT"TIGHTEN AND C 
LEAN" 

299 GOSUB 1599 

340 PRINT"IS FAN BELT LOOSE?" 

3196 GOSUB 152¢ 

329 IF AG="Y" THEN PRINTTAB(&) 5 "TIGHTE 
N THE FAN BELT" 

338 GOSUB 1599 

349 PRINT" JUMPER LEADS OR A PUSH SHOUL 
D BE ENOUGH TO START THE CAR": END 

359 PRINT"IS THERE LOOSENESS OR CORROS 
ION AT THE " 

369 PRINT"STARTER END OF THE BATTERY C 
ABLE?" 

378 GOSUB 1529 


389 IF AS="Y" THEN PRINT"TIGHTEN AND C 
LEAN THE CONNECTIONS” 

39a GOSUB 1594 

49@ PRINT"PUT A PIECE OF METAL ACROSS 
THE" 

419 PRINT"SOLENOID TERMINALS. DOES STA 
RTER WORK?” 

426 GOSUB 1526 

439 IF AS="Y" THEN PRINT"THE IGNITION 
SWITCH IS PROBABLY FAULTY" 

44% GOSUB 1599 


282 


429 IF AS="Y¥" THEN PRINTTAB(4)5 "IT SHO 
ULD BE REPLACED": END 

463 PRINT"DOES STARTER CLICK?" 

4708 GOSUB LS52@ 

439 IF AS="Y" THEN PRINT"STARTER MAY B 
E JAMMED": GOTO 529 

499 PRINT"AS NOTHING HAPPENED, THE SOL 
ENOID Is” 

S88 PRINT"PROBABLY FAULTY. A PUSH MAY 
START" 

Sif PRINTTAB(12)5; "YOUR CAR.":END 

526 REM STARTER JAMMED 

338 PRINT" TURN THE IGNITION OFF, AND P 
UT THE CAR" 

549 PRINT"IN A HIGH GEAR. PUSH CAR FOR 
A FOOT OR" 

558 PRINT"SO TQ POP STARTER LOOSE. ":EN 
D 

568 RETURN 

SPA REM HEKHHKHKHKHHEHK HHH HEH HHH KEK K HEHEHE 

S89 REM TURN OVER, WON’T START 

Soa PRINT"CHECK WIRES AT POINTS FOR DA 
MPNESS." 

696 PRINT"IS THERE A CHANCE AREAS ARE 
DAMP?" 

61% GOSUBR 1526 

626 IF A®S="Y" THEN PRINT"SPRAY WITH MO 
ISTURE REMOVAL SPRAY": GOSUB 159¢ 

63@ PRINT"IS THERE DUST VISIBLE ON THE 
INSULATING" 

64% PRINTTAB(6)3;"PART OF THE COIL, OR 
ON THE” 

6598 PRINTTAB(11); "DISTRIBUTOR CAP?" 

666 GOSUB 1529 
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679 IF AS="Y" THEN PRINT"WIPE COIL SEC 
TION AS WELL AS INSIDE” 
689 IF AS="Y" THEN PRINTTAB(6)3; "AND QU 
TSIDE OF CAP.":GQSUR 159¢ 
69S PRINT"ENSURE ALL WIRES ARE TIGHT A 
ND DRY BEFORE CONTINUING" 
798 GOSUB 1599 
71i@ PRINT"IF CAR STILL DOES NOT START, 
IT IS TIME TO CHECK THE SPARK PLUGS: " 
729 GOSUB 1594 
23@PRINT"DOES SPARK FROM THE END OF TH 
E PLUG WIREJUMP 3/8 OF AN INCH OR MORE?" 
74@ GOSUB 1520 
759 IF AS="Y" THEN PRINT"THE PLUGS ARE 
FAULTY":GOSUB 1594 
769 IF AS="N" THEN 83g 
778 PRINT"ARE THE PLUGS GREASY?" 
789 GOSUB 1529 
799 IF AS="Y" THEN PRINT"AN EMERGENCY 
REPAIR CANNOT BE MADE” 
aga IF AS="Y" THEN PRINT"WHILE PLUGS A 
RE IN THAT STATE.":GOSUB 159@:GOTQ 779 
S19 IF AS="N" THEN PRINT"IF THIS IS AN 
EMERGENCY THEN TRY CLOSING" 
S28 IF AS="N" THEN PRINT"THE GAP TO AB 
OUT HALF NORMAL":GOSUB 1599:GOTO 919 
830 PRINT"IS THERE ANY SPARK AT ALL?" 
849 GOSUB 1526 
@5d IF AS="Y" THEN ?7¢ 
869 GOSUB 87G:END 
879 PRINT"CHECK ROTOR, COIL AND DISTRI 
RUTOR CAP" 
889 PRINT"FOR CRACKS. IF THERE AREN’T 
ANY THERE, " 
89% PRINT"IT LOOKS AS IF THE POINTS OR 
CONDENSER IS YOUR PROBLEM" 
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94a PRINT"A REPAIR MAY WELL BE NEEDED" 
:RETURN 
Pig PRINT"DQ YOU HAVE GAS IN THE TANK? 


929 GOSUB 152¢ 

938 IF AS="N" THEN PRINT"FILL TANK AND 
TRY AGAIN" > GOSUB 15990 

949 PRINT"ARE ALL FUEL AND VACUUM LINE 
S SECURE?" 

9359 GOSUB 152¢ 

96S IF AS="N" THEN PRINT"ATTEND TQ THE 
SE AND TRY AGAIN": GOSUB 159¢ 

9798 PRINT" REMOVE THE AIR CLEANER FR 
OM THE" 

98S PRINTTAB(13)5; "CARBURETOR": GOSUB 15 
9S 

999 PRINT"DOES IT LGQK DRY?" 

199@ GOSUB 152¢ 

1Gig@ IF AS="N" THEN 1486 

1926 PRINT"TURN THE ENGINE OVER A FEW T 
IMES WITH" 

1939 PRINT"YOUR HAND SEALING THE AIR IN 
TAKE": GOSUB 1596 

14944 PRINT"IS YOUR HAND WET WITH GAS?" 
1659 GOSUB 1529 

1969 IF AS="N" THEN PRINT"UNSCREW GAS C 
AP IN CAS AIR VENT IS PLUGGED" 

197@ IF AS="N" THEN PRINT"THE FUEL PUMP 
MAY NOT BE WORKING": GOSUR 198¢ 

1988 PRINT "HAVE YOU BEEN CRANKING THE 
STARTER A" 

1g9@ PRINT"LOT IN THE PAST FEW MINUTES? 
L114@@ GQASUB 152¢ 

1116 IF AS="N" THEN 1159 
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11424 PRINT"WAIT FOR A MINUTE OR SQ, THE 
N HOLD THE” 

113@ PRINT"GAS PEDAL STEADILY ON THE FL 
OOR WITHOUT" 


1194@ PRINT"“PUMPING IT. THIS SHOULD GET 
YOU GOING":END 

115@ PRINT"THE ENGINE MAY WELL BE FLOOD 
ED AT THIS" 

1169 PRINT"POINT AND THE FLOOD VALVE ST 
UCK GPEN.":GOSUB 1599 

1179 PRINT"TAP THE SIDE OF THE CARBURET 
OR" 

1189 PRINT" THEN TRY THE STARTING PROCES 
S AGAIN": END 

LIPHD REM HHEHKKHHKHKKHE KH KKK H KEKE K HEHEHE HEHE 

129@ REM STARTS, THEN STALLS 

121G PRINT"THIS SUGGESTS A FAULTY BALAS 
T RESISTOR WHICH SHOULD BE REPLACED":EN 
D 

L22G REM KXHKKKKK KKH KK KKKKKKEKHEKEKEKKE HE 

1234 REM RUNS, STALLS A LOT 

1249 PRINT"THE PROBLEM IS EITHER CAUSED 
BY :" 

1254 PRINTTAB(7)3;"SHORTING (OR LOOSE) W 
IRES ;" 

1264 PRINTTAB(7);"A WEAK SPARK; OR" 

127G PRINTTAB(7)3;"A FAULT IN THE FUEL S&S 
YSTEM" 

1289 PRINT"CHECK FIRST FOR LOOSE OR SHO 
RTING WIRES": GOSUB 1596 

1299 PRINT"IF THEY ARE NOT OK, REPAIR. 
IF THEY ARE,IT COULD BE THE SPARK PLUGS" 

1398 GOSUB 879 

131G PRINT"THERE IS A FINAL CHECK WE CA 
N TRY ON" 
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1228 PRINT"YOQUR SPARK PLUGS":GQSUB 159¢ 

133G GOTO 1366 

134D REM 33H EEE EEE 

135@ REM RUNS, ROUGH IDLE 

1366 PRINT"IT COULD WELL BE THAT ONE OR 
MORE OF" 

1379 PRINT"YOUR SPARK PLUGS ARE FAULTY. 
":GOQSUB 1599 

138@ PRINT"DISCONNECT THEM ONE AT A TIM 
E. THE ONES” 

139@ PRINT"WHICH DO NOT CAUSE THE ENGIN 
E IDLE To" 

1444 PRINT"DROP ARE FAULTY. CHECK THESE 
THEN" 

1419 PRINT"RETURN TO THE SYSTEM. ":GOSUB 

159 

1429 PRINT"DID TEST SHOW ANY PLUGS WERE 
FAULTY?" 

143@ GOSUB 1529 

1449 IF AS="Y" THEN PRINT"REPLACE ALL P 
LUGS IF YOU CAN, OR JUST" 

1459 IF AS="Y" THEN PRINT"THE ONES WHIC 
H TESTED FAULTY":GOSUB 1599 

1468 PRINT"THE MOST COMMON CAUSE OF A B 
AD IDLE," 

147 PRINT"ASSUMING THAT THE PLUGS ARE 
OK, IS THAT" 

1486 PRINT"YOUR GAS MIXTURE IS SET TO R 
ICH” 


14999 PRINT"SQ YOU SHOULD ADJUST THIS":E 


ND 
159 PRINT"ADIUST THE IDLE SPEED-SCREW 
ON THE THROTTLE LINKAGE": END 


LS1LG REM HKHEKHKHEHK HHH KKK KK KKEHKKEKKKKKKKKHKE 
1524 PRINTTAB(14)3;"(Y¥ - YES, N - NO)?" 
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15398 
154¢ 
13559 
156¢ 
1579 
i58sq 
15946 
1699 
16196 


IF INKEYS(@6)<>"" THEN 1530 


AS=INKEYS (@) 

SOUND 16, -RND(15),RND(256)-1,5 
IF AS<>"Y" AND AS<>"N" THEN 1546 
PRINTTAB(22)3"> OK "SASS" <" 
VDU ? 

FOR T=1 TO 26@66:NEXT T 

PRINT 

RETURN 


MEDICI 


1¢ 

26 

3 

46 

bal) 

6g 
TT" 

7B 
ce 

8a 


REM MEDICI - PERSONAL CHECKUP 
MODE 6:VDU 19,8,4593 

GOSUB 1259 

PRINT "A - I AM BADLY OVERWEIGHT" 
PRINT “B - I AM FAIRLY OVERWEIGHT" 


PRINT "C - I AM SLIGHTLY OVERWEIGH 


ULD BE" 


9G 
19 


PRINT "D - MY WEIGHT IS ABOUT RIGH 
PRINT "E - I AM THINNER THAN IT SHO 
GOSUB 1176 


WE IGHT=5* (ASC (AS) -68) IF AS="E" TH 


EN WEIGHT=9 


11@ 
129 
139 


PRINT WEIGHT 
GOSUB 1256 
PRINT "I ENGAGE IN EXERCISE, THAT" 


149 PRINT “RAISES MY HEARTBEAT TO 126 
oR MORE," 

159 PRINT "FOR AT LEAST THE FOLLOWING 
NUMBER" 

169 PRINT TAB(8);"QF HOURS A WEEK: " 

17% PRINT 
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13896 PRINT 
19 PRINT 


TO 
29a 


PRINT 


AN HOUR 


216 


228 


PRINT 


PRINT 


F HOURS" 
23a GOSUB 1174 
248 EXERCISE=SX (ASC (AS) -63)-S:IF AS="A 
" THEN EXERCISE=9 


"A - LESS THAN A QUARTER" 

"B - MORE THAN A QUARTER, UP 
THREE QUARTERS" 

"C - FROM THREE-QUARTERS QF 
UP TO ONE AND A HALF* 

"D - FROM GONE AND A HALF TO 
TWO AND A HALF" 

"E - MORE THAN TWO AND A HAL 


238 PRINT EXERCISE 

269 GOSUB 1256 

278 PRINT "WHEN DRIVING: ":PRINT 

289 PRINT "A - IT HARDLY EVER WEAR A SE 
AT BELT" 

298 PRINT "B - I WEAR A SEAT BELT AROU 
ND A QUARTER OF THE TIME” 

39@ PRINT "C - I WEAR A SEAT BELT EVER 
Y SECOND JQURNEY”" 

Sig PRINT "D - I WEAR A SEAT BELT FOR 
MOST, BUT NOT ALL TRIPS" 

320 PRINT "E - I ALWAYS WEAR A SEAT BE 
Lore 

338 GOSUB Lira 

344 SEATBELT=2¥ (ASC (AS) -S65) 

359 PRINT SEATBELT 

369 SOSUB 12590 

3°S PRINT "I AM CONSCIOUS OF NUTRITION 
AND TRY TO EAT HEALTHILY: " 

389 PRINT 

399 PRINT "A - ALL OF THE TIME" 

499 PRINT "B - NEARLY ALL GF THE TIME” 

414 PRINT "C - A FAIR PROPORTION GF TH 


E TIME” 
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42a 
436 
44996 
450g 
469g 
47 a 
48a 


498 
SBS 
Sig 


PRINT 
PRINT 
GOSUB 


"Dp - 
"Ee - 
11726 


FROM TIME TO TIME” 
HARDLY AT ALL” 


DIET=-ASC (AS) +69 


PRINT 
GCSUB 
PRINT 


PRINT 
PRINT 
PRINT 


& DAY" 


328 
Ay" 

53d 
Ay" 

549g 


PRINT 


PRINT 


PRINT 


A DAY" 
S5@ GOSUB 1176 
564 SMOKING=-7#(ASC (AS) -65) 


S?@ PRINT SMOKING 

Se@ GOSUB 125¢ 

5S°S PRINT “ALCOHOL - HOW MANY DRINKS ( 
ON AVERAGE) DO YOU HAVE EACH DAY" 

69@ PRINT 

61G PRINT "A - NONE” 

62¢@ PRINT "B - LESS THAN 3" 

63@ PRINT "C - 3 TQ 6" 

649 PRINT "D - 7 TO 9" 

659 PRINT "E - MORE THAN 9” 

668 GOSUB 1176 

674 DRINK=-3¢4 

63 IF AS="A" THEN DRINK=2 

69S IF AtS="B" THEN DRINK=1 


7BS 


DIET 
1259 


"SMOKING (A CIGAR COUNTS AS 
A CIGARETTE)" 


"A —, 
"B - 


"Cc - 


"D pn 


"Ee - 


NOT AT ALL" 
LESS THAN 15 CIGARETTES 


15 Ta 25 CIGARETTES A D 


26 TQ 42 CIGARETTES A D 


MORE THAN 42 CIGARETTES 


IF AS="C" THEN D 
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RINK=DRINK/5 


7198 IF AS="D" THEN DRINK=DRINK/2 


728 PRINT DRINK 

738 GOSUB 1256 

749 PRINT "IN GENERAL, HOW STRESSFUL W 
GQULD YOU SAY"; 

758 PRINT " YOUR LIFE HAS BEEN IN THE 
LAST 6 MONTHS" 

768 PRINT 

778 PRINT "A - EXTREMELY STRESSFUL" 

789 PRINT "B - FAIRLY STRESSFUL” 

798 PRINT "C - SLIGHTLY STRESSFUL" 

899 PRINT "D - NEUTRAL” 

81i@ PRINT "E - NOT STRESSFUL" 

829 GOSUB 1174 

838 STRESS=INT (2.5% (ASC (ASB) -69) ) 

849 PRINT STRESS 

859 GOSUB 139@:CLS 

264 PRINT "PERSONAL ASSESSMENT FROM ME 
DIcr:" 

874 PRINT 

886 PRINT TAB(8)5 "WEIGHT: "; WEIGHT 

899 PRINT TAB(6); "EXERCISE: "; EXERCISE 

998 PRINT TAB(4)5;"CAR SAFETY: "3 SEATBEL 
T 

91S PRINT TAB(S) 5 "NUTRITION: "3 DIET 

92S PRINT TAB(7)$; "SMOKING: "; SMOKING 

939 PRINT TAB(?7) 3; "ALCOHOL: "5; DRINK 

944 PRINT TAB(S)3; "STRESS: ";STRESS 

958 GOSUB 1394 


Ti 


969 ANT=WEIGHT+EXERCISE+SEATBELT+¢DIET+ 
SMOKING+DRINK+STRESS 


978 GOSUB 
9386 PRINT 
PRINT 


1366:PRINT 
* YOUR RAW RATING IS "3AN 
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999 PRINT "ON A SCALE WHERE ZERO IS 
AVERAGE, " 

1908 PRINT "THE LOWEST RATING IS BELOW 
-@a AND" 

1919 PRINT " THE HIGHEST IS OVER 396" 

1924 GOSUR 1360:PRINT 

1939 IF ANT<46 AND ANT>-6 THEN AS="AVERA 
GE":L¢="62 TO 73 72 TO 728" 

1948 IF ANT<-5 AND ANT>-21 THEN AS="BEL 
OW AVERAGE":LS="6a TO 66 65 TO 71" 

195@ IF ANT<-29 THEN AS="POOR":L@="69 0 
R LESS 65 OR LESS" 

1966 IF ANT<-45 THEN AS="VERY POOR" 

1979 IF ANT<-69 THEN AS="VERY, VERY POG 
rR" 

1989 IF ANT>S AND ANT<15 THEN AS="GOOD" 
:LS="74 Ta 86 79 TO 85" 

1999 IF ANT>14 THEN AS="EXTREMELY GOOD" 


:LS="81+ 6+" 
11908 PRINT "THIS INDICATES YOUR HEALTH 
STATUS IS "SAS 


1119 PRINT 

1128 PRINT "LIFE EXPECTANCY: ”" 

113g PRINT TAB(3)5 "MALE FEMALE” 
1149 PRINT TAB(3)5L& 

1is@ END 

LLGE REM KXHEKKKKHEKHEKK KEKE KEKE KEKE KEK KEKE 
117@ REM ACCEPT INPUT 

118@ IF INKEYS(@)<>"" THEN 1189 

L119@ ABS=INKEYS(S) 

1296 IF AS< "A" OR ASI"E” THEN 1196 
1218 PRINT: PRINT TAB(12)5 "OK "SAS 
1229 RETURN 

LDS REM KXKKEKKKKE KEKE KEK HEE HHEEK KKK 
1244 REM DELAY/SPACE QUT 

125@ FOR J=1 TO 1466G6:NEXT J 


292 


12469 CLS 


1276 
123d 


LOSEST 


1299 
1308 
13190 


PRINT: PRINT: PRINT: PRINT 

PRINT "WHICH OF THE FOLLOWING IS C 
TQ THE TRUTH (SELECT ONE):” 

PRINT 

FOR J=1 TO 4@G:NEXT J 

RETURN 


FUZZY RITA 


el 
3g 
4a 
Sa 
6a 
7a 
ae 
bd) 
igg 


REM FUZZY RITA 

PROCinitialise 
PROCout_put_options 
PROCdiscrimination_options 
PROCask_question 
PROCmake_decision_and_update_base 
PRINT"PRESS <RETURN> TO CONTINUE"; 
IF ¥8<>"" THEN INPUT I$: GOoTa 5S@ 
PRINT" TRAINING" 

PRINT"OR ANY KEY THEN <RETURN> Ta 


USE RITA” 


119 
126 
13 
14¢ 
159 
16¢ 


1? 
184 
196 
2468 
216 
224 


INPUT X#: GOTO 3@ 

END 

REM KHKEKKKKEKHKKK KKH HEHEHE HHH HHH 

DEF PROCask_question 

CLS 

PRINT"HERE ARE THE SUBJECTS I CAN 
DISCRIMINATE BETWEEN” 

PRINT 

FOR J=1 TO TT 

PRINT" > "SAS(IJ) 

NEXT J 

GOSUB 1590¢ 

IF X$="" THEN PRINT" THINK OF GONE, 


THEN PRESS <RETURN>” 


293 


230 IF X$<>"" THEN PRINT"I AM READY NO 
W TO DETERMINE WHICH ONE you HAVE” 

246 IF Xs="" THEN INPUT JS 

259 ADD=.5 

269 FOR J=1 TO DA 

278 ADD=ADD+tADD 

286 GOSUB 13506 

299 IF ¥S¢>"" AND TT>2 THEN 399: REM CH 
ECK IF QUESTION CAN BE JUMPED 

3698 PRINT"ENTER A NUMBER FROM ” 

31G PRINT"1 (TRUE) TO @ (FALSE) (#% TO 
END RUN)" 

3296 PRINT: PRINT ES(J)5 

33G INPUT HS: IF HS="%" THEN PRINT: PRIN 
T" THANK YOU": PRINT: END 

34@ C(J)=VAL (HS) 

354 C(I) =ADD¥C (I) 

36@ NEXT J 

374 ENDPROC 

BSD REM KHHKKKKHK KKK HHH HKHE KEKE HEE HKK EEK 

399 REM CHECK IF QUESTION CAN BE JUMPE 


446 JUMP=1 
41@ FOR W=1 TO TT 
426 IF ABS(B(W,J)-B(1,3))>.7 THEN JUMP 


439 NEXT W 

449 IF JUMP=6 THEN 399 

45a C(JUMP)=B(W, J) 

446 GOTO 369 

APH REM KHXHKKKK HHH HK HHH HK HHH KE KEKE EEE 

48@ DEF PROCmake_decision_and_update_b 
ase 

4996 FOR J=1 TO TT 

59G DI JEG: E(IVHGIF(I)I=G 

Sig NEXT J 
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S28 
S38 
548 
S58 
S6@ 


ADD=.5 

FOR J=1 TO TT 

ADD=ADD+tADD 

FOR X=1 TO Da 

REM PLAY WITH VALUES IN NEXT THREE 


LINES FOR MOST EFFICIENT RESULTS 


o7@ 
S8g 


IF C(X)=B(I,X%) THEN D(J)=D(I) +1 
IF ABS(C(X)-B(J,X%))<.6%ADD THEN E¢ 


JY=E(I)+.4 


S99 


IF ABS(C(X%)-B(JI,X))¢1.2 ¥ADD THEN 


FCJ)SF(J)+.1 


69S 
6196 
629 
638 
649 
659 
669 
673 
68d 
598 
7IS 
71g 
P28 


AS (AL) 


P38 


NEXT xX 

NEXT J 

AL=1LIA2Z=1°5A3=1 
Fi=1:F2=1:F3=1 

FOR J=1 TO TT 

IF D(J)OFL THEN Fi=D(J):A1=J 
IF E(J)>F2 THEN F2=E(3):A2=I 
IF F(J)>F3 THEN F3=F (J) 2 A3=I 
NEXT J 

REM **% ANNOUNCE RESULT ¥*¥ 
PRINT 

CFLG=4 

PRINT"THE MOST LIKELY RESULT IS "3; 


IF A2<>A1 THEN PRINT" THE NEXT MOST 


LIKELY IS "3AS(A2):CFLG=1 


74g 


IF AS<>A2 AND AS3<>A1L THEN PRINT" TH 


E NEXT MOST LIKELY IS ";AS(A3) SCFLG=2 


736 
76D 
RRECT 
77D 
78S 
79D 


PRINT 

PRINT"IS THE MOST LIKELY RESULT CQ 
(Y/ND "5 

INPUT FS 

IF Fe<o>"y" AND FS#<>"N" THEN 779 

IF Fs="Y" AND X$<>"" THEN ENDPROC 
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899 IF F#="Y" THEN 989 
Sig IF TT=2 AND Al=1 THEN Al=2:GOTO 98 


824 IF TT=2 THEN A1=1:GQ0TO 986 

83G IF CFLG=@ THEN 39a 

&4@ PRINT"IS MY SECOND CHOICE CORRECT 

(Y/N) "5 

e5@ INPUT FS 

869 IF FS="N" THEN 899 

@7@ IF CFLG=1 THEN A1=A2:GOTO 98g 

889 IF CFLG=2 THEN A1L=A3:GOTO 98¢ 

89 GOSUB 15a¢ 

968 FOR J=1 TO TT 

919 PRINT J3"- "sAS(I) 

923 NEXT J 

930 PRINT 

944 PRINT"WHICH IS THE CORRECT ONE"; 

95@ INPUT Al 

968 IF A1L<1 OR AL>TT THEN 95¢ 

97G REM ¥¥ EDUCATING RITA ** 
{UPDATE KNOWLEDGE BASE) 

989 FOR J=1 TO De 

994 IF BtA1,J)<>@ THEN B(A1,J)=(C(I+5* 

B(A1,J3))/6) 

199% IF B(A1,3J)=@ THEN B(A1,J)=C(I) 

1916 B(AL,J)=INT(1G¥B(A1,3))/1 

1926 NEXT J 

1938 PRINT 

1949 IF Us="" THEN ENDPROC 

195@ FOR J=1 TO TT 

1962 PRINT:GOSUB 1599 

1976 PRINT AS(J) 

198@ PRINT 

1999 FOR K=1 TO Da 

119 PRINT ES®(K)3" "$B(I,K) 
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111¢ 
11296 
1136 
1149 
1156 
1169 
117@G 
118¢@ 
119¢ 
1289 
T* 
1219 
12290 


NEXT K 

NEXT J 

PRINT 

ENDPROC 

REM KHEKKKKHKH KKH HEKHK HH HH HK HHH HHH 

DEF PROCout_put_options 

TT=4 

TT=TT+1 

GOSUB 159a¢ 

PRINT"ENTER OUTPUT OPTIGN NUMBER" T 
(PRESS <RETURN> TO END)" 

INPUT AS(TT) 

IF AS(TT)="" GR TT=51 THEN TT=TT-1 


> ENDPROC 


123¢@ 
129 
125¢ 
126¢ 
1272 
123¢ 
1296 
139¢ 
131¢ 
1326 
133¢ 


1346 
1359 


GOTO 11896 

REM KHKKHH HHH HHH HHH HHH HH HHH HHH HH 

DEF PROCdiscrimination_options 

cLsS 

FOR J=1 TQ TT 

PRINTAS (J) 

NEXT J 

Da=a 

D@=Datl 

GOSUB 159¢ 

PRINT" ENTER QUESTION NUMBER"DO" 
(PRESS <RETURN> TO END)" 

INPUTES (DQ) 

IF ES(DQ)="" OR D@=S51 THEN D@=Da-1 


- ENDPROC 


136¢ 
1379 
1389 
13996 
14928 


GOTO 131¢ 

REM KKEKKK KKK HHH HHH HHH HHH HHH HHH HH 
DEF PROCinitialise 

CLS 

REM REDUCE ARRAYS IN THE NEXT LINE 


IN ACCORDANCE WITH YOUR NEEDS 
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1419 DIM A#(5G),B(5@,59),C(50),D(59) , Es 
(59) ,E(58),F(58),G(59) 

1429 xs="" 

1439 PRINT"PRESS ANY KEY, THEN <RETURN> 
IF you " 

144@ PRINT"WANT TO SEE THE UPDATED KNOW 
LEDGE BASE" 

145@ PRINT" AFTER EACH RUN; JUST 
PRESS” 

1469 PRINT" <RETURN> IF YOU DON 
es tes 

1478 INPUT US 

148@ CLS 

149@ ENDPROC 

1500 PRINT" ---------- orn 


SCALING 


1@ REM SCALING 

29 DIM X(54),2°59) 

36 PRINT" 

{CLR3" 

4G INPUT "HIGHEST VALUE"S5A 
5@ INPUT "LOWEST VALUE";B 
68 A=At. G1 

78 B=Bt.G@1 

8a C=(A-B) /5G 

9G X¥(G)=B 
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199 FOR J=1 To 5a 
116 ¥(J)=K(I-1)4C 

129 Z(3)=3/5o 

13@ PRINT Z(J),X*(I) 

149 NEXT J 

15@ DFF=(X(2)-xX(1))/2 

16@ COUNT=9 

17@ COUNT=COUNT+1 

189 PRINT"ENTER VALUE"; @% 

19@ INPUT @s% 

290 IF @#="" THEN END 

219 @=VAL (Qs) 

229 IF @B OR @>A THEN 189 

23@ FOR J=1 TO 5¢ 

249 IF ABS(@-X(J))<DFF THEN PRINTCOUNT; " 
-"3Z(I) 

250 NEXT J 

26@ GOTO 176 


HASTE 


198 REM HASTE 

26 DIM AS(255) ,BS( 255) 

39 FS=""SF=O:cC_s 

FB REM KEHEHHHKKEKHHHKLHHEKEEKEEKHEHHKE HH 
S@& FLAG=o 

64 INPUT "> "DS 

78 IF DS="" THEN 6 

8@ IF LEFTS(DS,1)="?7" THEN 2406 

98 E=< 
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iga@ E=Etl 

116 IF MIDS(DS,E,1)="*" THEN 149 

1246 IF E<LEN(DS) THEN 168 

136 PRINT "INVALID ENTRY": GOTQ 52 

144 IF FLAG=3 THEN RETURN 

154 F=Fti:IF F=256 THEN END 

169 AS(F)=LEFTS(DS,E-1) 

ivg BSR(F)=MIDS(DS,E+1) 

180 GOTO 5d 

LID REM KXKHKHKHK KKH HK HKKEHKHHKEEE KEE EEE 

26@ REM INTERRQGATE 

218 FLAG=4: true=9 

226 IF RIGHTS(DS,1)="/" THEN FLAG=3 

238 FOR J=1 TO LEN(DS)-S 

249 IF MIDS(D%$,3,5)=" AND " THEN FLAG= 
Si:true=J 

250 NEXT J 

269 IF FLAG=S THEN 412 

273 IF LEFTS(D$,3)="?P/%" THEN FLAG=1 

2389 IF LEFTS(D$,4)="?/¥/" THEN FLAG=2 

296 IF FLAG=3 THEN GOSUB 9S: FS=MIDS (DS 
32,E-2) 

3489 IF FLAG=1 THEN FS=MIDS (DS, 4) 

3igd E=a 

328 E=E+! 

3308 IF AS‘E)="" AND FLAG=4 AND true=¢ 
THEN PRINT "FALSE” 

4a IF ASt‘E)="" THEN S26 

356 IF FLAG=4 AND "P"+4AS(E) +"#"+RS(EV= 
DS THEN PRINT "TRUE": true=1i 

346 IF FLAG=3 AND FS=AS‘(E) THEN PRINT 
BStE) 

378 IF FLAG=2 THEN PRINT AS(E)3"*¥"5 BS ¢ 
E) 

See IF FLAG=1 AND FS#=BS(E) THEN PRINT 
AS(E) 
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BOG 
4oe 
419 
uet?) 
42a 
43a 
446 
45a 
46a 
47a 
436 
49m 
AAS 


IF E¢<255 THEN 329 
REM THEHHHHHLKKKKEHHKEEKEERKEKHEE 
FS=MIDS (DS, 4, true-4) 1 GS=MIDS (DS, tr 


E=2 

E=E+t 

TF AS(EY="" THEN Sze 
IF BS(E)=FSB THEN 474 
IF EY 255 THEN 439 
H=a 
H=H+1 

IF BSt‘H)="" THEN 469 

IF BS‘H)=GS AND AS(E)=AS(H) THEN P 


RINT AS(‘(E) 


Sig 
S24 
SSeS 


EASLE 


26 

38 

46 

ae 

6G 

7S 
HF 


IF H¢255 THEN 486 
PRINT TAB(S)5;" > END OF ANSWER <”" 
GoTa 3S¢ 


REM EASEL 

MODE 6:VDU 19,9,4593 

DIM X(4@),Y¥(4@),Z(4@) 

PRINT 

INPUT"> "AS 

IF AS="" THEN END 

REM 33H BH EEE HHH EEE HEE IIEE 


FOR J=1 TO 4@ 

XCJVHBEGHIV (IV HOG2 Z(I)=G 

NEXT J 

REM KHHHEKKHHEHK HEH HH HHH HHH HH HHH HHH HH 


R=9:S=6: T=6: CFIRST=G: CSECND=G: EDGE 
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T 


136 
14a 
15¢ 
HEN 
169 


FOR J=1 TO LEN(AS) 

BS=MIDS(AS,J,1) 

IF BS="(" THEN S=St1:Z(S)=J:IF T=9 
CFIRST=J 

IF BS=")" THEN T=T+i:Y(T)=J:IF CSE 


CND<>@ AND EDGE=@ THEN EDGE=J-1 


i 


E* 


172 
18¢ 
198 
298 
216 
2268 
230 
24¢ 
258 
266 
27a 
280 
296 


IF T=1 AND B#=")" THEN CSECND=J 
IF BS=" " THEN R=Rtisx(R)=J 

NEXT J 

IF S=T THEN 266:REM ( ) BALANCE 
IF S¢T THEN PRINT" -> MISSING (" 
IF C>T THEN PRINT" -> MISSING )" 
INPUT” > ", BS 


AB=AS+BS 

GOTQ 38@ 

FLAG=9 

IF LEFTS(AS,5)="CAR (" THEN FLAG=1 
IF LEFTS(AS,5S)="CDR (" THEN FLAG=2 
IF LEFTS(AS,6)="CONS (" THEN FLAG= 


IF LEFTS(AS,6)="ATOM (" THEN FLAG= 


IF LEFT#(AS,4)="EQ (" THEN FLAG=S5 
IF LEFTS(AS,6)="NULL (" THEN FLAG= 


ON FLAG GOSUB 429,479,558, 698,736, 


IF FLAG<>@ THEN GOSUB 369 
GOTQ 496 

REM ¥*¥* RETURN ANSWER ** 
PRINT” VALUE IS..." 


IF BS<>" 6)" THEN PRINT" "53 BS 
IF BS="()" THEN PRINT” NIL” 
RETURN 


REM XH HHH HHH HHH HHH HHH HEHEHE HEHEHE EK KEK 
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429 REM ¥¥% CAR ¥¥ 

439 IF S=2 THEN BS=MIDS(AS,Z(2)+1,X(2) 
-Z(2)) 

449 IF S>2 THEN BS=MIDS(AS, CFIRST,CSEC 
ND-CFIRST+1) 

459 RETURN 

AED REM HHHHHH HHH HHH HHH HHH KKK KKH KI 
¥% 

478 REM ¥* CDR *¥ 

486 GOSUB 429 

498 LB=LEN(BS) +7 

59G BS="("+MIDS(AS,LB, EDGE-1) 

Si@ IF RIGHTS(BS,2)="))" THEN BS=LEFTS 
(BS, LEN (BS) -1) 

529 IF MIDS(BS,2,1)=" " THEN BS="("+MI 
DS (BS, 3) 

539 RETURN 

SAD REM HHH HHH HHH HHH HHH HHH HHH KKH KI 
HF 


S50 REM ¥% CONS ¥¥ 
569 BS=MIDS(AS, 7, LEN (AS) -1) 
5378 J=@ 


S8@ IF LEFTS(BS,1)="(" THEN J=1 

599 J=J+1 

696 IF MIDS(BS,J,1)="(" THEN 639 

616 IF J<LEN(B%) THEN 599 

626 BS=" > CONS ERROR <":RETURN 

639 LB=LEN(BS)-1 

649 B=" ("+LEFTS (BS, J-1) +MIDS(BS, J+1) 

659 BS=LEFTS(BS,LB) 

669 IF RIGHTS(BS,2)=" )" THEN BS=LEFTS 
(BS,LEN(BS)-2)+" )" 

678 RETURN 

68S REM FEHB HHE HEHEHE HEH HEHEHE EEE 
#% 
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69S 
PBS 
71G 
728 
P3E 
=a"(" 
74S 
75GB 
76S 
7? RB 
HX 
78S 
POG 
Baa 
81a 
826 
836 
8495 
850 
869 
872 
88a 
B98 
IGS 
91g 
KE 
928 
93S 
94D 


95a 


REM ¥¥ ATOM H%¥ 
AS=MIDS (AS, 7, LEN(AS) -1) 

J=9: BS="NIL” 

J=I+1 

IF MIDS(AS,J,1)=" " GR MID#(As,I,1 
THEN RETURN 

IF J<LEN(AS) THEN 72@ 

Bs="T" 

RETURN 

REM KKXKKHKHKHKEKH HEHEHE KKH KKEKKEHEHE HEHEHE HKE EE 


REM ¥* EQ ¥*¥ 
AS=MIDS (AS, 5) 
AS=LEFTS (AS, LEN (AS) -1) 
J=9:BS="NIL" 

J=I+1 

IF MID#(AS,J,1)=")" THEN RETURN 
IF MIDS(A%,J,1)=" " THEN 872 

IF J<LEN(AS) THEN 820 

RETURN 

CS=LEFTS(AS,IJ-1) 
AS=MIDS(AS,I+1) 

IF AS=CS THEN BS="T" 

RETURN 

REM XXX XK HEHE HK KK HHHKHH IH IEHK HEH HH IH 


REM ¥¥% NULL ¥¥ 

BS="NIL” 

IF AS="NULL ()" THEN PRINT" ILLEGA 
L - NULL NEEDS ARGUMENT": BS="" 

IF AS="NULL (())" THEN BS="T" 

RETURN 


969 
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PROLOG-A 


19 REM PROLOG-A (SIMPLE FRONT END) 

26 REM * ALL INPUT IN UPPER CASE ¥* 

3@ GOTO 54 

4G PRINT "NQ (MORE) ANSWERS": RETURN 

58 MODES: VDU 19,404,439; :PROCinitialise 

SH REM HXKKK HEHEHE HKKKKEKHK KKK KKK EHEK 

78 PRINT 

89 INPUT "&. "IG 

9@ IF Js="" THEN END 

1968 IF JS="LIST ALL” THEN GOSUB 186490:G 
OTa 76 

11@ IF LEFTS(J$,5)="LIST " THEN JS=MID 
$(JS,5)+" ":GOSUB 999:GQOTA 7a 

126 IF RIGHTS(3JS,1)<¢>")" THEN PRINT "i 
-"S INPUT MS: IS=JISt+MS:GOTA 124 

13@ LI=LEN(J#) 

149@ IJ#R=LEFTS(IG,LJ-1)+" "REM STRIP FI 


NAL ), REPLACE WITH SPACE 
15@ LI=LEN(J&) 


168 FLAG=6 

179 IF LEFTS(3J%,4)="ADD(" THEN JS=MIDS 
(J$,5) :FLAG=1 

188 RULEFLAG=@: PLUSFLAG=@: ARI THFLAG=@ 

196 FOR R=1 TO LEN(JS) 

209 IF MID®(J%,R,4)=" IF " THEN RULEFL 
AG=R!FLAG=6 

219 IF MID#(3J$,R,5)=" AND " THEN PLUSF 
LAG=R 

226 IF MID#(J%,R,4)="SUM(" THEN ARITHF 
LAG=1 

234 IF MIDS&(J%,R,6)="TIMES(" THEN ARIT 
HFLAG=2 
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249 IF MIDS(J#%,R,6)=" LESS " THEN ARIT 
HFLAG=3 
25@ IF MIDS(J#,R,3)="INT" THEN ARITHFL 
AG=4 
268 NEXT R 
274 IF LEFTS(3J&,3)="IS(" THEN JS=MIDS( 
J$,4) !FLAG=2 
28@ IF LEFTS(J%,19)="WHICH(X +: " THEN 
JS=MIDS (JS, 11) !FLAG=3 
298 IF LEFTS$(J%,16)="WHICH((X Y) 2 xX" 
THEN JS=MIDS(JS,17) :FLAG=4 
39@ IF FLAG=@ THEN PRINT "SYNTAX ERROR 
":GOTO 76 
319 LI=LEN(IJS) 
328 REM NOW SEND TO RELEVANT SUBROUTIN 
ES 
33@ IF PLUSFLAG<>@ THEN GOSUB 1959:GOT 
G 7@:REM ENCODE RULE CONTAINING AND 
349 IF RULEFLAG<>@ AND FLAG<>5S THEN GO 
SUB 1119:REM ENCODE RULE 
354 IF ARITHFLAG<>@ THEN GOSUB 2439:G0 
TO 7G:REM ARITHMETIC 
369 IF RIGHTS(J%,3)=" X " OR RIGHTS(IJS 
,3)=" Y " THEN JS=LEFTS(J%,LJ-2)+" " 
37S LI=LEN(Is) 
389 IF FLAG=1 THEN GOSUB 449:REM ADD 
399 IF FLAG=2 THEN GOSUB 529:REM IS 
490 IF FLAG=3 THEN GOSUB 619:REM WHICH 
419 IF FLAG=4 THEN GOSUB 830:REM WHICH 


424 GOTO 79 

ASAD REM HHHKHKKKHHKHKHEKHKK KKH KEK EKEHE 
446 REM ADD 

439 K=9 

466 K=K+1 
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47D 
489 
496 
SIO 
51g 
52a 
3g 
54d 
S5g 
56d 
Soo 
S78 
589 
59S 
648 
61GB 
626 
638 
649 
6590 
669 
676 


IF ZS(K)="" THEN 2%(K)=J%: RETURN 
IF K<19@8@ THEN 46a 

PRINT "MEMORY FULL” 

RETURN 

REM KXKKKKKEKEHKHKKEEEHKHKHKHHEHK KEKE HK 
REM IS 

K=8 

K=K+1 

IF Z2$(K)="" THEN 58a 

IF 28$(K)=JS THEN PRINT "YES": GOTO 


IF K<1GGS THEN 549g 

PRINT "NO" 

RETURN 

REM KHEKEKKEKHEHEKEHEEKEK HE HKHKKHEKHH HHH HK 
REM WHICH 

IF LEFTS(3J$%,1)="X" THEN 716 
JS=LEFTS(JIS,LI-1) 

K=6 

K=Ktt 

IF Z8(K)="" THEN 699 

IF JS=LEFTS(ZS(K),LEN(J$)) THEN PR 


INT RIGHTS(ZS(K), (LEN(Z8(K))-LEN(IJS))) 


68a 
696 
PBS 
PAG 
P29 
P3e 
POG 
738 
768 
77D 
78BS 


IF K<19@@ THEN 65¢ 

GOSUB 4¢@ 

RETURN 

REM ¥ QUERY STARTS WITH X *¥ 
JS=M1IDS (JS, 3,LEN (IS) -3) 
LI=LEN(IJ#) 

K=@ 

K=K+1 

IF Z&(K)="" THEN Sag 
QS=MIDS(ZS(K), LEN(Z$(K))-LJI,LI) 
IF Q@%=J& THEN PRINT LEFT#(Z#(K),LE 


N(ZS(K))-(LIt+2)) 
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79S 
BGS 
819 
829 
83g 
3499 
850g 
860 
87h 
83 
898 
98S 
91S 


928 
936 
94G 


IF K<19@@ THEN 75¢ 

GOSUB 4% 

RETURN 

REM KHKHKH HHH HHH HHH HEHEHE HHH 
REM WHICH2 

IS=LEFTS(JSG,LI-2) 

LJI=LEN(JS) 

K=0 

K=K+1 

IF Z8(K)="" THEN 969 

LFLAG=9 

FOR L=1 TO LEN(2®(K))-LJ 

IF MIDS(28(K),L,LJ)=3JS THEN LFLAG= 


NEXT L 
IF LFLAG=98 THEN 959 
PRINT LEFTS(28(K),LFLAG-2) ;MIDS(2% 


{K), (LFLAGtLJ)) 


95g 
96S 
976 
98h 
996 
LAGS 
1G1G 
1926 
1936 
19496 
1939 


FLAG=1 


1G6P 
1974 
198 
1998 
119¢ 


IF KX 1999 THEN 872 

GOSUB 49 

RETURN 

REM HH KKH HHH HHH HKE HEHEHE HEHEHE KEKE 
REM LIST 

K=8 

K=K+1 

IF Z#®(K)="" THEN RETURN 
LFLAG=6 

FOR L=1 TO LEN(2%(K))-LEN(JIS) 
IF MIDS(2$(K),L,LEN(JS))=JS THEN L 


NEXT L 

IF LFLAG=1 THEN PRINT 28(K) 

IF K<1G9@ THEN 1916 

RETURN 

REM HHKKH HK HEHEHE HEHEHE HEHEHE HEHE K EE 
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L11G 
11290 
1136 
114@ 


REM FORM RULES 

R=RULEFLAG 
ES=LEFTS(J%,R) : FS=MID#S(IS,R+4) 

IF LEFTS(ES,1)<>"X" THEN PRINT "RU 


LE ERROR": GOTO 79 


115¢ 


11696 
1176 
1189 
11996 
1246 
1219 
12208 
1230 
1246 
125 
13790 
1266 
1276 


REM NEXT LINE DETECTS INPUTS LIKE 
X EATS Y IF X IS-A Y 

IF RIGHTS(FS,2)="Y " THEN 1399 

PRINT TAB(18); "COMPILING RULE” 

FOR T=1 TO 199 

RS(T)="" 

NEXT T 

ES=MIDS(ES, 3) :FS=MIDS(FS, 3) 

K=9:RR=G 

K=K+1 

IF Z8%(K)="" THEN 1399 

IF RIGHTS(Z2S(K),LEN(FS) )<>FS% THEN 


RR=RRt!t 
RS(RR)=LEFTS(Z2S(K), (LEN(Z2$(K))-LEN 


(FS) )) +ES 


12890 
129 
134G@¢ 
1316 
1329 
133d 
13490 
135¢d 
1366 
1379 
13890 
1399 
1496 
191G 
1426 


PRINT "> "3RS(RR) 
GOTO 123¢ 

IF RR=9@ THEN RETURN 
RC=8 

RC=RC+1 

2S (K)=RS(RC) 

IF K<19@S THEN K=K+ttl 
IF RCCRR THEN 13290 
RETURN 

IF K<19@@ THEN 1236 
RETURN 

REM * RULE WITH 2 VARIABLES ¥ 
FOR T=1 TO 164 
RS(T)="" 

NEXT T 
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1439 
144¢ 
143598 
1462 
1476 
14380 
1499 
1560 
1516 
1526 
1539 
7B 
13548 
155¢ 
156¢ 
1576 
15389 
15%°¢@ 
1604 
7B 
1619 
1629 
16390 
1649 
165¢@ 
1669 
16796 
7B 
1689 
1699 
1793 
171G 
1726 
1736 
1749 


K=9: RR=9 

IF K<igg@@ THEN RETURN 

K=K+1 

IF Z#(K)="" THEN 17794 

REM SPLIT INTO THREE WORDS 
QS=2Z2S (K) 

J=9 

J=I+1 

IF MIDS(Q@%,J,1)=" " THEN 1549 
IF J<LEN(@S) THEN 1599 

PRINT "RULE COMPILING ERROR": GOTO 


AS=LEFTS# (@%, J) 

@S=MIDS (QS, I+1) 

J=G 

J=I3+1 

IF MID#(Q@%,J,1)=" " THEN 1619 

IF J<LEN(@%) THEN 1579 

PRINT "RULE COMPILING ERROR":GOTO 


BS=LEFTS (Q%, J) 

QS=MIDS (QS, J+1) 

J=@ 

J=J+1 

IF MIDS(Q%,J,1)=" " THEN 1680 

IF J<LEN(Q@%) THEN 164@ 

PRINT "RULE COMPILING ERROR": GOTO 


PRINT TAB(18)3; "COMPILING RULE" 
CS=LEFTS (QS, J) 
MS=MIDS(FS, 3,LEN (BS) ) 

IF BS<>MS THEN 14459 

RR=RR+1 
NS=MIDS (ES, 3, LEN( ES) -49) 

RS (RR) =ASt+NStCS 
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173¢ 
1769 
17 ?7e 
178¢ 
1798 
1864 
181g 
1829 


PRINT "> "3 RS(RR) 

GOTO 1446 

IF RR=9 THEN RETURN 

M=a 

M=M+1 

IF M>RR THEN RETURN 

2S (K) =RS(M) 

IF K=199@ THEN PRINT "QUT OF MEMOR 


¥";GOTGQ 76 


183¢ 
1s4a 
185¢ 
1866 
1876 
188q 
18996 
1998 
1914 
1926 
1938 
19404 
195¢ 


1960 


197¢ 


K=K+1 

GOTO 1796 

REM KKK KHEH HHH HHH KH HHH HHH HHH HHH 

REM LIST ALL 

PRINT 

K=4 

K=K+t+i 

IF Z®(K)=""\ THEN RETURN 

PRINT ZS(K) 

IF K<19@@G THEN 1899 

RETURN 

REM KHEKK HHH KKK HK HHH HHH HHH HHH 

REM FORM RULES WITH ’AND’ OF THE 
FOLLOWING TYPE: 

REM (X EATS Y IF X IS-BIRD AND 
Y COMES IN BOXES) 

REM » STATEMENT MUST BE IN LIST 


PRECEDING Y FOR ALL EXAMPLES TO BE CODED 


198¢ 
1996 
299G 
2019 
2929 
2838 
2I48 


REM SPLIT INTO SECTIONS 
JIS@=MIDS(IG,2)2:REM STRIP "xX" 
PRINT TAB(20)3; "COMPILING RULE” 
J=1 

J=I+1 

IF MIDS(3JS,3J,1)=" “ THEN 2860 
IF J<LEN(J$) THEN 2926 
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29356 
N 

2969 

237B 


PRINT "RULE COMPILING ERROR": RETUR 


AS=LEFTS(JS,J)2:REM RELATIONSHIP 1 
JIS=MIDS(3I$,3+7):REM STRIP TO START 


OF SECOND RELATIONSHIP 


2989 
2OG98 
21969 
ntti 
211¢ 
212¢6 
213¢ 
N 
214¢ 
21594 
2169 


J=1L1icount=G 
J=J+1 
IF MIDS(3JS,J,1)=" " THEN count=cou 


IF count=2 THEN 2149 
IF J<LEN(J%$) THEN 2999 
PRINT "RULE COMPILING ERROR": RETUR 


BE=LEFTS(3J&,3J):REM STATEMENT 1 
CS=MIDS(IS,I+6)2REM STATEMENT 2 
IF c#=" " THEN PRINT "RULE COMPILI 


NG ERROR": RETURN 


21796 
213¢G 
21968 
22690 
221¢G 
2226 
2236 
2249 
2259 


REM NOW GO THROUGH DATA BASE 

FOR T=1 TO 299 

R#(T)="" 

NEXT T 

R1L=G2R2=99 

K=4 

K=K+l 

IF ZS8(K)="" THEN 23196 

IF R1=99 OR R2=29G THEN PRINT "MEM 


ORY SHORTAGE": GOTO 2319 


2269 
22768 


LB=LEN (BS) 
IF RIGHTS(Z$(K),LB)=BS THEN R1I=R1+ 


LSRS(R1L)=LEFTS(Z$(K), LEN(ZS(K) )-LB) 


2289 
2298 


LC=LEN(CS) 
IF RIGHTS(Z8(K),LC)=C%#% THEN R2=R2+ 


1:RS(R2)=LEFTS(ZS(K),LEN(ZS(K))-LC) 


23908 


IF K<i9G@@G THEN 2236 
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2319 IF RS(19@)="" THEN PRINT "STATEMEN 
T 2 OF INPUT NOT IN DATA BASE":RETURN 
2324 REM NOW ENCODE RULES 

2338 R1i=G:R2=99 

2349 R2=R2+1 

2350 R1i=Rit+i 

2366 IF RS(R1)>" " AND RS(R2Z)>" " THEN 
ZSE(K)=ERSB(R1L)+AS4RS(RZ)+" " 

2374 PRINT "> "3Z8(K) 

2386 K=K+tl 

2399 IF RS(R2+1)<>"" THEN 234g 

2490 IF R®S(R1+1)<>"" THEN 2359 

241@ RETURN 

2Z42G REM HHH HERI IIH 
243G REM ARITHMETIC 

244G LI=LEN(IJs) 

2459 IF ARITHFLAG<3 THEN GOSUB 2496 
2440 IF ARITHFLAG=3 THEN GOSUB 2899 
2479 IF ARITHFLAG=4 THEN GOSUB 398¢ 
2488 RETURN 

2498 REM ¥¥*X¥¥% SUM TITLES *%*#** 

2598 JS=MIDS(JS,5,LI-5) 

2519 IF LEFTS(3J%,2)="S(" THEN JS=MIDS(J 
$,3) 

2526 LI=LEN(JS) 

2538 K=o 

2540 K=K+l 

2550 IF MIDS#(J&,K,1)=" " THEN AS=LEFTS( 
J$,K-1)!:JS=MIDS(JS,K+1):GOTO 25896 

2568 IF K<LJ THEN 2549 

2578 PRINT TAB(12)3;"ARITHMETIC ERROR":R 
ETURN 

2586 LI=LEN(J#) 

2598 K=G 

2698 K=K+1 
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2619 IF MID®(J#,K,1)=" " THEN BS=LEFTS( 
J$,K-1):IS=MIDS(JS,K+1):GOTA 24649 

2629 IF K<LJ THEN 2699 

2639 PRINT TAB(12)3;"ARITHMETIC ERROR":R 
ETURN 

2649 LI=LEN(IS) 

2658 K=a 

2669 K=K+tl 

2678 IF MIDS(J%,K,1)=")" THEN C#=LEFTS ( 
J$,K-1):GOTO 2796 

2684 IF K<LJ THEN 2664 

2696 PRINT TAB(12)3;"ARITHMETIC ERROR (T 
00 MANY VARIABLES) ": RETURN 

2768 AN=9:BN=6:CN=a 

2719 IF ASC(AS)>58 THEN AN=1 

2728 IF ASC(BS)>S58 THEN BN=2 

2738 IF ASC(C%)>58 THEN CN=4 

274G GUIDE=AN+BN+CN: IF GUIDE=3 OR GUIDE 
=5 OR GUIDE=6 THEN 269 

2758 IF ARITHFLAG=2 THEN 2826:REM TIMES 
27698 IF GUIDE>S THEN 2799 

2778 IF VAL (AS) +VAL (BS) =VAL (CS) THEN PR 
INT "“YES":RETURN 

2788 PRINT "NO":RETURN 

2799 IF GUIDE=1 THEN PRINT VAL (CS) -VAL ¢ 
BS) :GOSUB 44: RETURN 

2864 IF GUIDE=2 THEN PRINT VAL (C#) -VAL ( 
AS) :GOSUB 4@:RETURN 

2819 PRINT VAL (AS) +VAL (BS) :GOSUB 4@:RET 
URN 

2828 REM ¥* TIMES *¥ 

2839 IF GUIDE>@ THEN 286@ 

2846 IF VAL‘(AS) ¥VAL (BS) =VAL(C#) THEN PR 
INT “YES":RETURN 

2859 PRINT "NO":RETURN 
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2860 


IF GUIDE=1 THEN PRINT VAL (CS) /VAL ¢ 


BS): GOSUB 44: RETURN 


2874 


IF GUIDE=2 THEN PRINT VAL (CS) /VAL ( 


AS): GOSUB 44: RETURN 


2388S PRINT VAL (AS) ¥VAL (BS) >GOSUB 40:RET 
URN 

238996 REM * LESS ¥ 

2999 NF=S 

2918 IF ASC(3IS)<S5S8 THEN NF=1:REM NUMBER 
s 

2928 count=a 

2938 K=G 

2948 K=K+ti 

2959 IF MIDS(3ISG,K,1)=" " THEN count=cou 
nt+l 

2969 IF count=2 THEN 3009 

2976 IF K<LEN(J$) THEN 294¢ 

2986 PRINT TAB(29)3;"COMPARISON ERROR" 
2999 RETURN 

39998 BS=MIDS( IS, K+1) 

3G1G AS=LEFTS(JISB,K-6) 

3924 IF NF=1 THEN 395¢ 

3939 IF AS<BS THEN PRINT "YES":RETURN 
39499 PRINT "NO" :RETURN 

3950 REM * NUMBERS ¥ 

3969 IF VAL (AS) <VAL(BS) THEN PRINT "YES 
";RETURN 

3678 PRINT "NO":RETURN 

388A REM * INT ¥ 

3999 IF RIGHT#(3J¢,2)="X " THEN 3196 
31968 K=G 

311@ K=K+ti 

S126 IF MIDS(Js,K,1)=" " THEN 3169 

3130 IF K<LEN(JS$) THEN 31196 

3144 PRINT TAB(26); "ARITHMETIC ERROR" 
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315g 
3169 
317g 
N 
3189 
319d 
32988 
3218 
3228 
S239 
ETURN 
32498 
32598 
32648 
327E 
3284 
3294 
3398 


RETURN 
A=VAL (LEFTS(JIS,K-1)) 
IF INT(A)=A THEN PRINT "YES": RETUR 


PRINT "NO" 2 RETURN 

K=6 

K=K+t+1 

IF MIDS(JG,K,1)=" " THEN 32499 

IF K<LEN( JS) THEN 3200 

PRINT TAB(26)3; "ARITHMETIC ERROR":R 


PRINT INT(VAL(LEFTS(JG,K-1))) 
RETURN 

REM KSXKHEHEKEHKHKHK HK HEHEHE EE EE 
DEF PROCinitialise 

CLs 

DIM 2&(1GGH) ,RB(2GG) 

ENDPROC 


SSLISP 


19 REM &S.S.LISP 
20 MODE 6:VDU 19,%,4;383;:GOTO 3454: REM 
INITIALISE 


3a 
4a 
1) 


REM HHH HHHH KKH HE HKE HHH HEHEHE HEHEHE KEK 
AS=MIDS(AS,E) : ASB=LEFTS (AS,LEN (AS) - 


RETURN 

REM KHXHKK HHH KKH HEHE HHH HHH HEE KKK EEE 

PRINT 

NN=oa 

INPUT ": "AS 

IF AS="" THEN END: REM JUST PRESS 
<RETURN> TO END RUN 
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119 
126 
13¢@ 
14¢ 
i5¢ 
169 
=O 
17¢ 
18d 
199 
THEN 
248 


REM HHH HKKHKHKHHKHKHK KK HKHK KK KHKHKHK HEHEHE 
FOR J=1 TO 12 

XCJIHGIY(IV=H8252(I)=0 

NEXT J 

REM HHHEKKHK KKK KHKKKEHKHK KE KKK HK HK HHH HHH 
R=9:S=8: T=G: CFIRST=9: CSECND=@: EDGE 


FOR J=1 TO LEN‘(AS) 
BS=MIDS(AS,IJ,1) 

IF BS="(" THEN S=S+1:Z(S)=J!:IF T= 
CFIRST=J 

IF Be=")" THEN T=T+i:Y(T)=JIIF CSE 


CND<>9 AND EDGE=G THEN EDGE=J-1 


216 
226 
238 
2498 
259 
268 
278 
289 
296 
346 
31¢G 
S28 
338 


IF T=1 AND BS=")" THEN CSECND=J 
IF BS=" " THEN R=RtiiX(R)=IJ 

NEXT J 

IF S=T THEN 346:REM (¢ ) BALANCE 
IF S<T THEN PRINT” -> MISSING (" 
IF S>T THEN PRINT" -> MISSING )" 
INPUT" + "BS 

AS=ASt+ BS 

GOTO 126 

IF NWDS=@ OR NN=1 THEN 379 
MS=LEFTS(AS,X(1)-1) 

FOR J=1 TQ NWDS 

IF MS=NS(J) THEN AS=05(J3) +MIDS(AS, 


LEN (MNS(J)) 41) 


348 
350 
360 
378 
38 
396 
499 


NEXT J 

NN=1 

GOTO 126 

FLAG=8: BS="NIL" 

IF LEFTS(AS,5)="CAR (" THEN FLAG=1 
IF LEFT#(AS,5)="CDR (" THEN FLAG=2 
IF LEFTS(AS,6)="CONS (" THEN FLAG= 
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419 IF LEFTS(AS,6)="ATOM (" THEN FLAG= 
4 

426 IF LEFTS(AS,4)="EQ (" THEN FLAG=5 

4930 IF LEFTS(AS,6)="NULL (" THEN FLAG= 
6 

4496 IF LEFTS(AS,S)="MEMBER (" THEN FLA 
G=?7 

49590 IF LEFTS(AS,6)="MEMQ (" THEN FLAG= 
t=] 

4649 IF LEFTS(AS,8)="APPEND (" THEN FLA 
G=9 

479 IF LEFTS(AS,9)="REVERSE (" THEN FL 
AG=1¢ 

48a IF LEFTS(AS,7)="EQUAL (" THEN FLAG 
=11 

49@ IF LEFTS(AS,6)="LIST (¢" THEN FLAG= 
12 

5a IF LEFT&(AS,S)="DEFINE (" THEN FLA 
G=13 

5i@ IF LEFT#(AS,6)="ADD1L (" THEN FLAG= 
14 

520 IF LEFTS(AG,46)="SUB1 (" THEN FLAG= 
15 

53a IF LEFTS(AS,7)="ZEROP (" THEN FLAG 
=16 

S549 IF LEFTS(AS,12)="DIFFERENCE (" THE 
N FLAG=17 

554 IF LEFTS(AS,6)="EXPT (" THEN FLAG= 
18 

56 IF LEFTS(AS,5)="MAX (" THEN FLAG=1 
9 

579 IF LEFTS(AS,5)="MIN (" THEN FLAG=2 
@ 

539 IF LEFTS(AG,46)="PLUS (" THEN FLAG= 


21 
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Soo IF 
=22 

688 IF 
FLAG=23 

619 IF 
=24 

629 IF 
FLAG=25 

639 IF 
=26 

5449 IF 
FLAG=2? 

65a IF 
=28 

669 IF 
IF 
TF 


TF 
TF 


?88 ON 


LEFTS(AS,7)="MINUS (" THEN FLAG 


LEFTS(AS,1@)="QUOTIENT (" THEN 


LEFTS(AS,7)="RECIP (" THEN FLAG 


LEFTS(AS,11)="REMAINDER (" THEN 


LEFTS(AG,7)="TIMES (" THEN FLAG 


LEFTS(AS,19)="GREATERP (" THEN 


LEFTS(AG,7)="LESSP (" THEN FLAG 


LEFTS(AS,8)="MINUSP (" THEN FLA 


LEFTS(AS,9)="NUMBERP (" THEN FL 


LEFTS‘AS,4)="QNEP (" THEN FLAG= 
FLAG? IZ 


FLAG=9 


THEN V2a 
THEN YS REM KEYWORD NOT 
RECOGNISED 
FLAG GOSUB 849,899,979, 1119,126 


G,133G,1388, 1519, 1794, 1769, 206G, 2130,338 


a 


718 GOTO 766 


720 IF 


738 ON 


FLAG>24 THEN 754 
(FLAG-13) GOSUB 21806, 2239,2284, 


2350, 2569, 2680, 2799, 2820, 2874, 2920, 2946, 


74S 


748 GOTO 74a 


73a ON 


(FLAG-2494) GOSUB 3930, 3976,312G, 


3168, 3200, 3250, 2288 
768 IF FLAG< >@ THEN GOSUB 78a 
778 GATTO 7? 
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73g 
? 9S 
SOG 
B18 
e295 
838 
HF 
84g 
B5G 


-Z(2)) 


86a 


REM ** RETURN ANSWER ** 


PRINT " VALUE IS ..." 
IF BS<>"()" THEN PRINT" "3; BS 
IF BS="()" THEN PRINT" NIL" 


RETURN 
REM HHKKKK KKH KKK HHH KKK EK H HK KH HEE 


REM ¥¥ CAR ¥¥ 
IF S=2 THEN BS=MIDS(AS,Z2(2)41,X(2) 


IF S>2 THEN BS=MIDS(AS,CFIRST,CSEC 


ND-CFIRST+1) 


87a 
886 
KE 
89S 
IBS 
be © 4) 
929 
93G 


RETURN 
REM HHH HKH HHH HHH HH HH HEHE KK HEHEHE KK 


REM ¥¥ CDR ¥* 

GOSUB 846 

LB=LEN(BS) +7 
BS="("+MIDS(AS,LB,EDGE-1) 

IF RIGHTS(BS,2)="))" THEN B#=LEFTS 


(BS, LEN (BS) -1) 


9408 


DS (BS, 


958 
94g 
¥* 
97D 
989 
99S 
1GGAOG 
1Gg1la 
1929 
1936 
1949 
19356 


IF MIDS(BS,2,1)=" " THEN B=" ("+MI 
3) 

RETURN 

REM HHH KH KKK HK HHH HK HHH HEHEHE HEHEHE KEE 


REM ¥¥% CONS ¥* 
BS=MIDS(AS, 7, LEN (AS) -1) 

J=¢4 

IF LEFTS(BS,1)="(" THEN J=1 
J=J+t+i 

IF MIDS(BS,J,1)="(" THEN 1956 
IF JI<LEN(BS) THEN 19019 

BS=”" > CONS ERROR <":RETURN 


LB=LEN(BS)-1 
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19690 
1G?a 
1939 


BS=" ("+LEFTS (BS, J-1) +MIDS(BS, J+1) 
BS=LEFTS(BS,LB) 
IF RIGHTS(BS,2)=" )" THEN BS=LEFTS 


(BS, LEN(BS)-2)+" )" 


1B9B 
11965 
Hk 
111@ 
1126 
1130 
1149 
1150 
yar en 
1168 
L179 
1188 
1199 
#¥ 
1288 
1218 
1228 
1236 
1249 
1259 
1268 
1278 
1289 
1298 
1399 
1316 
1322 
¥¥ 
1330 
1348 


RETURN 
REM KEKKHKKKKHK KKH KEK KKH KKH HEHEHE HHH HHH 


REM ¥¥ ATOM ¥*X 
AS=MIDS(AS,7,LEN(AS) -1) 
J=9:BS="NIL" 

J=I+1 

IF MIDS(AS,J,1)=" " OR MIDS(AS, I, 1 
THEN RETURN 

IF J¢LEN(A®S) THEN 1142 

RS="T" 

RETURN 

REM HHH HHH HHH HH HII 


REM ¥¥ EQ %*¥ 
E=5:GOSUB 46 

J=6 

J=I+1 

IF MIDS(AS,J,1)=")" THEN RETURN 


IF MIDS(AS,J,1)="_" THEN 1286 

IF J<LEN(AS) THEN 1234 

RETURN 

CH=LEFTS (AS, IJ-1) 

AS=MIDS(AS, J+1) 

IF CS=AS THEN BS="T" 

RETURN 

REM XXX HHH HHH HHH HH HIKE KH K III 


REM ¥*% NULL ¥¥ 
IF AS="NULL ()" THEN BS=" ILLEGAL 


- NULL NEEDS ARGUMENT” 
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135¢ 
1360 
137¢ 
¥ 
1386 
1399 
1498 
L414 
1426 
pias eee 
143¢ 
1446 
1435¢ 
1466 
1476 


IF AS="NULL (())" THEN BS="T" 
RETURN 
REM HHH HK KK HHH HHH HHH KK HH HEHEHE KKK 


REM ¥*¥ MEMBER ¥¥ 
CS=MIDS(AS,9) 

J=1 

J=I+1 

IF MIDS(C#,J,1)=")" OR MIDS(CS,J,1 
THEN DS=LEFTS(C%,J):GOTO 1459 

IF J<LEN(C#) THEN 1419 

RETURN 

J=LEN (DS) 

J=I+1 

IF MIDS(CS,J,LEN(D%))=D% THEN C#=L 


EFTS(CS,LEN(CS)-1):3:GOTO 1634 


1486 
1493 
159G 
1519 
1529 
1530 
1549 
1556 
1566 
1576 
158g 
1596 
1694 
1619 
1626 
1636 


IF J<LEN(CS) THEN 1569 

RETURN 

REM KXKEKKKKHEHKHKKEKEKHKEHKEKKEHKEEK EEE EE 
REM %¥% MEMQ ¥*¥ 
CS=MIDS(AS, 7) 

J=G 

J=J+1 

IF MIDS(C#,J,1)=" " THEN 1589 

IF J<LEN(AS) THEN 1549 

RETURN 

DS=LEFTS (CS, J) 

CSH=MIDS(CH, J+2) 
CS=LEFTS(CH,LEN(CS)-2)+" " 

J=9 

J=J+1 

IF MIDS(C$,J,LEN(D%))=DS THEN B=" 


("4MIDS(CH,3J):GOTA 166¢ 


16468 
1659 
1569 


IF J<LEN(CS) THEN 1629 
RETURN 
BS=LEFTS(BS,LEN(BS)-1)+")" 
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1670 


1689 
1699 
1706 
171g 


IF RIGHTS(BS,3)=")))" THEN BS=LEFT 
$(BS,LEN(BS)-1):GOQTO 167¢ 

RETURN 

REM KEK KHHK KEK HKHK KH EHK KKH HEH KK HH HHH HE 

REM ¥*% APPEND X*¥ 

BS=MIDS (AS, 9) 


1729 
3)=7) 
173g 
174 
1756 
174d 
1? 7a 
1738 
179¢G 
1698 
18190 
1829 
1839 
1849 
1859 
DS(AS, 
186d 
Be 
187¢ 
1880 
189¢ 
1999 
191 


BS=LEFTS(BS,Y(1)-9)+" "“+MIDS(BS, Z( 


BS=LEFTS (BS, LEN( BS) -1) 

RETURN 

REM HEHEHE KKEKHK HK HHH KKK HHH KH HK HK HHH 
REM ¥% REVERSE %*¥ 

BS="" 
AS=MIDS(AG, 11) :AS=LEFTH (AS, LEN (AS) 
CT=g 

J=<¢ 

J=J+L° IF JOLEN(AS) THEN 19296 


IF MIDS(AS,J,1)=" " THEN 1850 

IF MIDS(AS,J,1)="(" THEN 1869 

GOTO 1814 

CT=CT+1:5GS(CT) =LEFTS(AS, J-1) SAG=MI 
J+1):GOTO 1892 

J=J+t12IF MIDS(AS,3I,2)="))" THEN 19 


IF MIDS(ASG,IJ,1)=")" THEN 1916 

IF J=LEN(AS) THEN 19°90 

GOTO 186¢ 

CT=CT+1°GS(CT) =ASt")"2GOTO 1930 
CT=CT+1°5GS$(CT)=LEFTS (AS, J) SAS=MIDS 


(AS, J+1):GQTO 1899 


1926 
1934 
1949 
195¢ 
1969 


CT=CT+t+1°:GS$(CT)=AS 

FOR M=CT TO 1 STEP -1 
BS=BS+tGS(M):IF M>1 THEN BS=BS+" " 
NEXT M 

BSe="("+Bs+")" 
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1979 


RETURN 


198G CT=CT+1:GS(CT)=LEFTS(AS, J+1) SAG=MI 
DS(AS,I+2):GOTA 1899 

LPPHBD REM KKEKKKH KKH HHH H KKH KKH KKK KEK EEE 
2934 REM %¥% EQUAL ¥* 

2918 E=8:GOSUB 4¢ 

2429 M=ASC (AS) SIF M>47 AND M<SS THEN 23 
7B 

2938 J=G 

294G J=I+1 

2858 IF MIDS(AS$,JI,2)=") " THEN J=J+1:G0 
TO 1289 

2465S IF MIDS(At,J,3)=")))" THEN 2199 
2978 IF MIDS(AS,J,2)="))" THEN 2119 
2984 IF J<LEN(AS) THEN 29496 

2999 RETURN 

21GS CB=LEFTS(AS, J+2) :ASB=MIDS(AS, IJ+4) 2G 
OTO 1366 

PLIG CHB=LEFTS(AS, I+1) :AS=MIDS(ASB, I+3)°G 
OTO 1369 

ZLLLA REM KHKKHKKKKKEHKKKKKEHKHKKEKKKKEKKEKKKEE 
2138 REM ¥¥% LIST %* 

2149 E=7:GOSUB 49 

2159 BS="("+ASt+")” 

2166 RETURN 

ZPLPH REM HXKKHKKHKKH KKH KEKE H EK EKE KKK HEKEE 
218¢a@ REM ¥*% ADDI X* 

21998 E=7:GOSUB 49 

22969 BS=STRS(VAL (AS) +1) 

2219 RETURN 

Z2ZG REM KKHKKHHKHH HHH HKHHKK HK HHEK HEE HEHEHE 
2230 REM %¥% SUBL H* 

2249 E=7:GOSUB 46 

2259 BS=STRS(VAL (AS) -1) 

22608 RETURN 
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2278 
2289 
2298 
2308 
2316 
232G 


REM KXKKKEKHKHEKKHKKKEKEKHKKEKEKHKKEKKHK KKK 
REM ¥*% ZEROP ** 

IF FLAG=16 THEN E=8 

IF FLAG=31 THEN E=?7 

GOSUB 4@ 

IF (AS="@" AND FLAG=16) OR (AS="1" 


AND FLAG=31) THEN BS="T" 


23398 
23498 
23350 
2360 
2376 
2384 
2396 
2499 
241G 


RETURN 


2426 
2436 
2446 
N 
24356 
2466 


RETURN 

REM KKK KHHKKHHKKHKHKHHKK KKK HK EHH HK KH HH 
REM %*% TWO ARGUMENTS ¥*¥ 
E=13:GOSUB 49 

J=¢G 

J=I+1 

IF MIDS(AG,J,1)=" " THEN 2424 


IF J<LEN(AS) THEN 2380 
BS=" *ERROR - ONLY ONE ARGUMENT": 


P=VAL (LEFTS(AS,J-1)) 
Q=VAL (MIDS(AS, J+1)) 
IF FLAG=17 THEN BS=STRS(P-@):RETUR 


IF FLAG=23 OR FLAG=25 THEN B=P/@ 
IF FLAG=25 THEN B=INT(.5+@%(B-INT ( 


B))¥19908) /1gae 


2476 
24980 
2449S 
2590 
2516 
23529 
2539 
23548 
23556 
2569 
23578 
2586 


IF FLAG=18 THEN B=P*Q 

IF FLAG=11 AND P=Q THEN BS="T" 

IF FLAG=27 AND P>@ THEN BS="T" 

IF FLAG=28 AND P<Q@ THEN BS="T" 

IF FLAG=32 THEN B=P-@ 

IF FLAG=11 OR FLAG>26 THEN RETURN 
BS=STRS(B) 

RETURN 

REM HXKKKE HHH KKK HHH KKH KKK HEHEHE KKH HH 
REM ¥% EXPT H* 

E=7:GOSUB 49 

GOTO 2379 
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2596 
269D 
2616 
2629 
2636 
2649 
26358 
2669 
2678 
2688 
269R 


REM HXKKEHKKHKHEHHK KKK HKHKEKHEHK KEKE HE HEE 
REM ¥% MAX (MIN PLUS TIMES) *% 
FS=LEFTS (AS, 3): AS=MIDS(AS, G6) 
CT=9:FLAG=6 

IF FS="TIMES”" THEN CT=1 

J=9 

J=I+1 

IF MIDS(AS,J,1)=" " THEN 2699 

IF J<LEN(AS) THEN 2659 

IF J=LEN(AS) THEN FLAG=1 

P=VAL (LEFTS(AS,J-1)):IF FLAG=9 THE 


N AS=MIDS(AKH, J+1) 


2768S 
2716 
27268 
2736 
2748 
27598 
2768 
2776 
2786 
2798 
2896 
2816 
2828 
2839 
2849 
2856 
286G 
2876 
28389 
2898 
299G 
291G 
2926 


IF F@#<>"PLUS" AND CT=@ THEN CT=P 
IF FS="MAX" AND P>CT THEN CT=P 
IF FS="MIN" AND P<CT THEN CT=P 
IF FS="PLUS" THEN CT=CT+P 

IF F#="TIMES”" THEN CT=CT#P 

IF FLAG=@ THEN 26496 

BS=STRS(CT) 


RETURN 

REM KKHEHKEHKKKKEHKKKHEKHKKEKKEHKKEHKHK KK HKE 
REM %¥% MIN H* 

GOTO 2616 

REM HKEKKHEKEKKEKEKEEEHEEK HEHEHE KEK HEEK EEE EE 
REM ¥*% PLUS ¥% 

Fs="PLUS" 

AS=MIDS (AS, 7) 

GOTO 2629 

REM KEK KHKHHE KKK KKH HEHEHE HIKE KEKE KEE 
REM ¥% MINUS ¥* 


E=8:GOSUB 49 
BS=STRS(-VAL (AS) ) 


RETURN 
REM HHH HHKHH HHH HHH KKH HEHEHE EHS 
REM ¥¥ QUOTIENT ** 
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2930 
2949 
2959 
2969 
2978 
2986 


E=11:GOSUB 49 


GOTO 23792 
REM HXKKKHKKHEKEHKHEHK KEKE EK HE KEKE HEHEHE 
REM %¥¥ RECIP Hk 


E=8:GOSUB 49 
IF AS="@" THEN BS="DIVISION BY ZER 


QO ILLEGAL": RETURN 


2996 
3GIBS 
3818 
3G2S 
3I3P 
394B 
3G35G 
396G 
3B7D 
398P 
3GPD 
3192 
SL11¢ 
3120 
3130 
314¢d 
31590 
3168 
317¢G 
3189 
3196 
3298 
3216 
3229 
3230 
3299 
3259 
3269 


B=1/ (VAL (AS) ) 


BS=STRS (B) 

RETURN 

REM KXHKKHKKEHKEHK KKH KKK KK KEHKHK HHH HEHEHE 
REM ¥* REMAINDER ** 
E=12:GOSUB 4¢ 

GOTO 2372 

REM KHEKKHEKKHEHK KKK HK HKHKKHK HK HKHK HHH HK HK 
REM Hk TIMES %¥ 


Fs="TIMES" 

AS=MIDS (AS, 8S) 

GOTO 26298 

REM KEE KHKEKHKHK KKH HEH HEH HK HEHEHE HHH HHH 
REM ¥% GREATERP ** 
E=11:GOSUB 490 

GOTO 3276 

REI HK HHH HHH KKH HHH HHH HHH HH HHH IH 
REM ¥% LESSP %*% 

E=3:GOSUB 49 

GOTO 2379 

REM KEKKKEKKEKKKEKKEKHKKHKKHKHK KEKE HHH HEH 
REM %¥*% MINUSP X¥ 
E=9:GOSUB 490 

IF VAL (AS)<@ THEN BS="T" 


RETURN 
REM HKEKKKEHKKHK KKH KKK KKK HEHEHE HHH HH 
REM *¥*% NUMBERP ¥¥ 


AS=MIDS (ASH, 19) 
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3278 IF ASC(AS)>44 AND ASC(AS)<58 THEN 
BS="T" 

3288 RETURN 

SLID REM XHXKKK KKK HHH KH HKHK KKK HK HHI K IKI 
3399 REM %% DEFINE ¥¥* 

331G AS=MIDS(AE, 9) 

3320 FS=LEFTS (AS, X(2)-9) 

3339 GS=MID$(AS, X14) -6) 

3349 J=¢ 

335@ J=I+1 

3368 IF MID®(G%,J,1)=" " THEN 3399 
3379 IF J<LEN(GS) THEN 3359 

3389 BS=" DEFINE ERROR":RETURN 

3399 GS=LEFTS(GS,J-1) 

349@ NWDS=NWDS+ti 

341G OS(NWDS) =GH:NS(NWDS) =FS 

3420 BS=Fs 

34398 RETURN 

SAAD REM HHH KKK HHH KH HK HHH HHH 
345@ REM ¥% INITIALISE ¥# 

3468 CLS 

347G DIM GS(2H) ,08( 2G) ,NS(2H),X(12),VC1 
2) Pt atay 

348G NWDS=9:REM COUNT OF USER DEFINED 


349D 


*>NEW WORDS’ 
GOTO 7% 
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Appendices: 

A — Bayes’ Theorem 
B — Databases 

C — Fuzzy Logic Rules 
D — Weather Data 

E — References 


F — Further Reading 
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Appendix A 
Bayes’ Theorem and 
Probabilities 


The Reverend Thomas Bayes, who lived from 1702 to 1871, was a 
Presbyterian minister and a very skilled mathematician. Expert 
systems had barely been dreamed of in his time (and their skills 
would probably have been ascribed to the devil). Despite this, his 
work finds ready application in any field (such as expert systems) 
where the probabilities of events taking place need to be modified as 
additional information is gathered. 


One suspects Bayes would not be pleased. He started on the road 
which lead to the development of his theorem when he voiced the 
admirable hypothesus that the existence of the Almighty could be 
proved by examination of the mathematical beauties in the world 
which He created. I will, he said, prove “‘that the Principle End of 
the Divine Providence . . . is the Happiness of His Creatures” and I 
will do it through mathematics. 


Unfortunately, the further he got into his studies, the more alarmed 
Bayes became by the implications of his discoveries. He finally 
closed the book on his work, and decided that it could not be 
published in his lifetime. 


However, the work he did was solid, and lies at the heart of modern 
decision-making theory. It is often called Bayesian decision theory 
in his honor. His theorem gives us a mathematically sound way of 
evaluating new information, and of using it to modify earlier 
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estimates — based on limited data — of the probability that 
particular outcomes will occur. It allows us to act on partial 
knowledge — as an expert system will often have to do — and then 
evaluate and revise our decisions as more data comes in. 


To understand Bayes’ Theorem, and see how it could be of value to 
you when developing your own expert systems, we need to know a 
little about probability. 


The chance of an event occurring is the number of successful 
outcomes divided by the number of possible outcomes. That is, the 
chance of a coin landing showing the head is 1 (the number of 
outcomes where the event required occurs) divided by 2 (the number 
of possible outcomes). 


To put that into an equation, where P(outcome) is used to indicate 
the probability of that outcome, we could write: 


number of successful outcomes 
P( outcomes) =----~-~~~-~---~--------------~. 
number of possible outcomes 


For our coin-tossing example, we could write: 


1 1 
P( head) =--------- ree = 0.8 
1 + 1 2 


If more than one event is being examined (as opposed to the coin 
tossing situation where we only interested in the single toss of a 
single coin), the events are either mutually exclusive (if it is raining, 
it cannot be not raining) or nonmutually exclusive (it can be cold 
and foggy). 
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Mutually Exclusive Events 


The probability for mutually exclusive events is the probability that 
outcome x or outcome y will occur. The probabilities in this case are 
added together, as follows: 


P(outcomeX OR outcomeY) 
= P(outcomeX) + P(outcomeY) 


Imagine we are throwing a single die. We first want to know what is 
the chance of it landing showing a three: 


P(three) = ----- 


The chance of it landing showing a five, P(five), is the same, one in 
six. Now the die cannot land showing both a three and a five, so the 
events are mutually exclusive. This means that the chance of the die 
landing showing either a three or a five can be expressed as: 


P(three OR five)=P(three) + P(five) 
= 1/6 + 1/6 = 2/6 = 1/3 


In other words, there is one chance in three that we will get a three 
OR a five on a single throw of the die. 


Now, when we throw the die, it either comes up three or five, or it 
doesn’t. What are the chances of it falling NOT showing a three or a 
five. Fairly obviously, the chance is 2/3 or 1 — 1/3. When we add the 
probability that an event will occur to the probability that it will 
not, it must add up to 1: 


P(event) + P(not event) = 1 
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...Wwhich is the sameas... 


P(not event)=1 - P(event) 


Events which are not Mutually Exclusive 


Imagine that you are holding a key which fits just one of six boxes 
which are on the table in front of you. You do not know which box it 
fits. However, you do know what is in the boxes: a black block, a 
black ball, a green block, a red ball, a black toothbrush, and a blue 
inflatable mouse. You try the key on each box, until it opens one. 
What is the chance that the box you open contains something black 
or a ball? Obviously, these events are not mutually exclusive, as 
there is one object (the black ball) which satisfies both criteria. 


However, opening a box which contains a ball does not necessarily 
mean this ball will be black. But because the possibility does exist of 
opening a box which satisfies both conditions, we need to reduce the 
probability that one condition will be satisfied by the chance that 
both will be satisfied. 


The chance of getting a black object is 3/6, and the chance of getting 
a ball is 2/6. The equation for selecting either a ball or a black object 
(that is, the probability of one or more of two events that are not 
mutually exclusive) is: 


P(black OR ball)= 
P(black) + P(ball) = P(black AND ball) 


In words, this equation means: The probability of choosing a black 
object or a ball is equal to the probability of choosing a black object 
plus the probability of choosing a ball, minus the probability of 
choosing a black object which is also a ball. 
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P(black OR ball) 3/6 + 2/6 = 1/6 
5/6 - 1/6 
4/6 


ar3 


Statistical Independence 


You may wonder how all this relates to Reverend Bayes. It does, 
and it will all be clear in due course. Bayes’ work cannot be 
explained until we’ve been through our probabilities. 


If, when you hit someone in the face with your mighty, hammer-like 
fist, they later develop a black eye, we say the events are 
statistically dependent. The probability of the second event 
occurring (the eye going black) is closely related to the probability of 
you smacking someone hard enough in the eye with your fist. 
However, just because two events occur in a row does not mean they 
are always statiscally dependent. Throw a coin. It lands heads. 
Throw it again. The probability of getting a head on the second 
throw is totally independent of the result of the first throw. 


If we call the probability of getting a four when we throw a die 
P(four), and the chance of a six P(six), the chance of getting a four on 
the first throw, and a six on the second, can be expressed as follows 
(where P(four & six) means the probability of four and six occurring 
together or in succession): 


P(four & six) = P(four) x P(six) 


The chance of getting a four is 1/6; and the chance of getting a six is 
also 1/6, so the chance of getting a four followed by a six is 1/6 times 
1/6, that is, 1/36. The chance of getting a four, followed by a six, 
followed by a three, is 1/6 times 1/6 times 1/6, or 1/216. As an 
equation, we’d have: 

P(four & six & three) = 


P(four) x P(six) x P(three) 
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The chance that this will not occur (that is, we will not throw a four, 
followed by a six, followed by a three) is one minus the chance that 
the event will occur: 


P(NOT (four & six & three))= 
1 = (P(four) x P(six) x P(three)) 


This way of working out the chance of an event not occurring is true 
for any situation; simply subtract the chance of an event occurring 
from one. If the chance of getting a six when throwing a die, P(six), 
is 1/6, the chance of not throwing a six is 1 — 1/6, that is, 5/6. 


Conditional Probability 


Conditional probability refers to the chance of event Y occurring, 
given that event X has occurred. It is written as P(Y/X). If the 
events are statistically independent, the probability of event Y, 
given that event X has occurred, is (perhaps surprisingly) simply the 
probability of event Y occurring, P(Y). 


Why should this be? If we throw a die, the chance of it coming up 
with a six is 1/6. If we throw it again, the probability for that throw 
coming up a six again is still 1/6. One throw of a die does not 
influence what happens on following throws. 


Note that in this case, that of statistical independence, we are 
asking what the chance of event Y occuring, given that event X has 
occurred; we are not asking what is the chance of event Y AND 
event X occurring. We are asking, given that event X has occurred 
(we have thrown a six), what the probability is of event Y (throwing 
a six). 


Statistical Dependence 
Things get a little more involved, I’m afraid to say, when the chance 


of a second event is related to the probability of a first event. 
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Conditional Probability 


Let’s imagine a situation in which we are holding a key which fits 
one of nine boxes sitting in front of us. Five of the boxes contain 
books written by Tim Hartnell, two contain books by Dr Rodnay 
Zaks, and the other two hold books from Grace Murray Hopper 
(Commodore Hopper, at the time of writing, was the US Navy’s 
most senior woman officer, and its oldest serving officer, despite 
trying to retire several times; Hopper designed the computer 
language COBOL). 


The chance of the box which is opened by the key containing any one 
of the books is 1/9. There are nine books and any one of them has the 
same probability as being in the box which the key fits as any other. 
However, suppose the box which can be opened contains a book by a 
male author. The probability of this occurring is 7/9. What is the 
probability that it will be one written by Rodnay Zaks? We can 
write this as P(Z:M), the probability that the book will be by Zaks, 
P(Z), given that the book is by a male author, P(M). 


We know the book is by a male author. To work out the chance that 
this book is by Zaks, we ignore the books written by Hopper, as 
these cannot be involved in this situation. We know there are seven 
books by males, two of which are by Zaks. To find the probability of 
Hartnell and Zaks within this seven, we divide the number of books 
by each author, by the total number of books by male authors: 


2/7 
S/T 


P(Z{M) 
P( HIM) 


These probabilities add up, as they should, to one. The probability of 
a book being by Zaks, given that the book is by a male author, is 2/7; 
and the probability of a book being by Hartnell, given that the book 
is by a male author, is 5/7. 


There is a higher probability, given that the book is by a male 
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author, of it being by Hartnell than by Zaks. To work out the 
probability of the book being by Zaks, given that the book is by a 
male author, P(Z/M), we divide the probability of Zaks by the 
probability of male, P(M), where P(M) equals P(Z) plus P(H): 


P(Z) P(2/9) .2222 


Now, as a check on this, we can reason that there are seven books by 
male authors. If the book we have is by a male, there are two 
chances (out of the seven) that it is by Zaks. Therefore, if our method 
of working out P(Z/M) above is correct, it should give the same 
answer as 2/7 (which is the chance that out of a set of seven books, 
two of which are by Zaks, a Zaks book is chosen). In fact, we find 
that this is the case, as it should be. 


Conditional probability, then, when outcomes are statistically 
dependent, can be expressed as: 


P(Y{X) = P(YX)/P(X) 


Back to Bayes 


This, at long last, brings us to the position where we can appreciate 
the work of the good Reverend. You may recall, at the start of this 
section, I said that Bayes’ Theorem gives us a way to use 
information obtained later to modify earlier estimates, based on 
limited data, of the probability that particular outcomes will occur. 


Imagine we have two boxes, each of which contain 25 wooden balls. 
In one box (B1), there are 14 black balls, and 11 red ones. In the 
second box (B2), there are 19 black balls and six red ones. You 
choose a box at random, plunge in your hand, and bring out a ball. It 
is black. What is the chance that you drew the ball out from B2? 
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The chance of getting either B1 or B2 is 1/2 (0.5). The chance of 
getting a black from B1 is 14/25 (0.56), and the chance of getting a 
black from B2 is 19/25 (0.76). The chance of getting a B1 AND a 
black ball is 0.5 times 0.56 (0.28) and the probability of B2 AND a 
black ball is 0.5 times 0.76 (0.38). The chance of getting a black ball 
at all is the sum of these two probabilities, 0.28 plus 0.38 (0.66). The 
chance, then, that we got the ball from B1 is P(B1, black)/P(black), 
or 0.28 divided by 0.66, or approximately 0.424 and the chance we 
got the ball from B2 is 1 — 0.424 or 0.576 (as we could only have got 
it from B1 or B2, the sum of the probabilities must equal 1). 


What does this tell us? What significance does the 0.424 or 0.576 
have? Before we reached into a box and drew out a ball, we would 
have said the chance of the ball coming from B1 or B2 would be 0.5, 
but now — after choosing only one ball — we can say that there is a 
higher chance that the ball came from B2 rather than from B1. 


Put the ball back in B2. Shuffle the boxes(!). Choose a box at 
random, and choose a ball from it. Imagine that we’ve managed to 
get another black ball. Can we say, with any confidence, what the 
chances are that, once again, we’ve taken it from B2? The 
probability that the two blacks came from B1 is 0.5 times.0.56 times 
0.56 (0.159) and the probability that the two blacks came from B2 is 
0.5 times 0.76 times 0.76 (0.289). If we add these together, we get 
the chance of getting two blacks in a row (0.159 plus 0.289 is 0.448). 


Now, how do we work out what the probability is that we took the 
second black ball from B2? 


The chance of getting two blacks in a row from B1 is the chance of 
choosing B1 and getting two blacks from it (0.159) divided by the 
chance of getting two blacks in a row (0.448), which is 0.355. The 
probability of getting two blacks in a row from B2 should be 1 — 
0.355, or 0.645. Let’s see if it is. The chance of choosing B2 and 
getting two blacks from it (0.289) divided by the chance of getting 
two blacks in a row (0.448), which is 0.645, just as we predicted. 
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Now where are we? Do we really know anything more than we did at 
the beginning? We started the whole black ball/box process with 
only the information that there was one chance in two (0.5) that we 
would choose B1 or B2. After selecting a single ball, which turned 
out to be black, we were able to say that the the probability that it 
came from B1 was 0.424 and the chance that it came from B2 was 
0.576. We replaced the ball, shuffled the boxes, and drew 
another one. It was black again. We did our sums again, and decided 
that the chance that the ball came from B1 was 0.355 and it was 
0.645 that it came from B2. This allows us to say that if we chose 
two balls in a row (replacing the first ball before choosing a second 
one), and they were both black, the probability that they came from 
B2 is 0.645. 
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Appendix B 
Databases 


The power of expert systems in the future will be due to the 
efficiency and intelligence of the inference engine, and the quality 
and breadth of the knowledge base the system can access. 


The information the knowledge base can hold will be, in the short 
term, essentially textual in nature, as our current computers are far 
better at manipulating the symbols which represent text than they 
are at playing with more complex symbols such as those which 
encode an animated color picture. At present, about 55% of material 
handled by a typical business is text, with 30% raw data and the 
balance of around 15% being made up of image information. 


When setting up a database for an expert system to access, there 
are three things which may need consideration. These are: 


— the cost of holding the information 
— the speed of communicating the information 
— the quality of the information held 


The sheer size of the information to be manipulated must be also be 
taken into account. 


The Cost of Data Storage 
The cost of holding information has shrunk dramatically over the 


past thirty years, as this chart — which shows the rough cost of 
holding a foolscap sheet of information — convincingly illustrates: 
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YEAR IN MAIN ON-LINE DIRECT 


MEMORY ACCESS 
1950 $225,000,000.00 _ 
1960 $70,000.00 $12,000.00 
1970 $11,500.00 $2,500.00 
1975 $2,750.00 $250.00 
1980 $275.00 $20.00 
1983 $120.00 $15.00 
1985 (estimated) $12.00 0.75 
1990 (estimated) $2.00 0.12 


These last two figures are likely to prove to be very conservative 
estimates. By 1987, electronic storage will be the cheapest method 
available for holding text, and will, of course, offer the additional 
benefits of immediate accessibility, fast searching and rapid 
communication. Two years after this, eletronic storage offering full 
color, random access and animation, will be the cheapest way of 
holding image information. 


The Characteristics of Data within Databases 


What are the characteristics of large quantities of data, such as 
those which will be held in knowledge bases? There are three levels. 
The first is that of pure data, a set of unconnected facts. The second 
level is that of structured, or categorised knowledge, held in a form 
in which it can be handled. This structure is vital if any sense is to be 
made of the information. The third — and presumably, in many 
cases, the most valuable level — is that of ‘associated knowledge’, in 
which not only the information is held. In addition, the knowledge 
base contains knowledge about the relationships of items within the 
data base. 


The most important decisions we’ll be making over the next decade 
relate to the way in which knowledge, and its interelationships, will 
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be held. There are many ways in which knowledge bases, and 
information about relationships of items within those bases, can be 
stored. And the kind of decisions we make now on such bases will 
lock us into using those forms of organisation perhaps forever. A 
related current problem is the sheer magnitude of the task of 
converting ‘old databases’ (held in such forms as paper files) into 
electronic forms. 


In Britain for example, the Department of Health and Social 
Security (‘welfare’) currently has the two problems to cope with. It 
has some 26.5 million names in active files, related by such things as 
geographic location, and a massive ‘rule base’ containing such 
information as how payments are to be made, to whom, and under 
what circumstances. According to the DHSS, current technology is 
unable to handle the rule base. However, the current methods are no 
longer adequate, so even before the necessary technology exists, 
decisions need to be made on how information will be handled so 
that when the technology is available it will be not handicapped 
unduly by being locked into primitve forms. This is indicative of the 
kind of problem facing much of the current organisation of 
knowledge. 


How Information is Handled 


There are three main components of the way in which information is 
currently handled. The major component, at present, is the 
database, followed by the work now going on in expert systems. The 
third component, which I’ll discuss in a moment, is less well-defined, 
but still forms an important part of the current means in which 
knowledge is held. 


Databases began as simple, structured two-dimensional arrays, and 
from these have evolved into what are now called ‘relational 
databases’. The major problem with a database is that you need to 
know in advance how information will be organised. This, as a 
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moment’s thought will show, can severely limit the effectiveness 
and flexibility of a database. 


The second component in the way knowledge is currently handled is 
the building up of expert bases for handling by inference engines. 


The third component can, perhaps, be best enclosed by the term 
‘transfer technology’. This is the ability to take skills from one area, 
and apply them in other areas, or in conjunction with other 
technologies (such as teaching, computer-based training and the use 
of ‘interactive video’, where laser disks may well soon be the most 
important component). 


The laser disk neatly encapsulates one of the current problems and 
potential of the massive amounts of information we can now store. 
At present, a laser disk can hold around 55,000 still images; this is 
about 700 Megabyte of data. They cost less than $5.00 each to 
mass-produce. These are quite amazing figures. Disks are under 
development which can be written to by the user, while at present 
they are read only. The statistics show the potential. The problem 
lies in the management of all that data. In contrast to the majority 
of textual data, visual imagery is not generally clearly categorisable. 
However, the vast cross-referencing potential of the computer, 
coupled with its unique ability to handle data of the density held 
within a laser disk, shows that video disks could only have evolved, 
and only make sense, when used with a computer to control and 
organise the information. 


The quality of the information held within computer data banks 
today should also be examined. Most of the information is currently 
managed by mathematical logic (using operators such as +, —, *, < 
and >). Words are treated as numbers. This means they have — to 
the computer — a number value, but no meaning. That is, although 
the information itself can be manipulated as numbers, the system 
itself cannot have the faintest idea of what it is working with. 
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If we could produce a system which uses words as words, 
manipulated by logic, and we might well be several steps closer to an 
‘aware’ machine. 


Already it is happening, to some extent. Greater processing power, 
and lower cost storage, means it is now possible to develop systems 
based on verbal (semantic) logic. Such a system recognises non- 
mathematical relationships between words, such as the association 
which exists between such pairs as father/son, big/large and New 
York/City, as you’ve seen in the material in this book on HASTE, 
EASLE, PROLOG-A and SSLISP. 
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Appendix C 
Fuzzy Logic Rules 


Fuzzy logic uses the operators AND, OR and NOT: 


NOT: Given two opposite conditions, the probability of one 
state is (1 — probability) of the opposite state 


AND: This takes the lower of two (or more) figures, so if one 
is 0.3 and the other is 0.5, ANDing them gives 0.3 


OR: This takes the higher of two (or more) figures, so if 
one is 0.3 and the other is 0.5, ORing them gives 0.5 


Note that this way of determining values in an AND or OR 
situation is largely traditional. Some people argue that an AND 
should be the multiple of probability-one and probability-two. Using 
the traditional method seems to work in practice, and given the 
largely empirical way in which the quality of output. of such a 
system must be assessed in many cases, the fact that it works is 
really all that matters. 


NOT p1_ ------ > 1-pl 
p1 AND p2.------> MIN(p1,p2) 


plORp2 ------> MAX(p1,p2) 
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Appendix D 
Weather Data 


This is the raw data used for the weather prediction section of 
FUZZY RITA. As you can see, not all the figures were used. You 
might like to try the system yourself, making use of information 
which my sample run ignored. 


TEMPERATURE 


MAX 
(°C) 


1 
2 
3 
4 
5 
6 
7 
8 
9 
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Now you can explore the fascinating world of Expert Systems on 
your own computer. 


In this book, by one of the world’s best-selling computer authors, 
you'll learn about the most successful Expert Systems programs 
developed to date, and see how the field has grown over the past 
decade. You can get your car started in the morning with the AUTO 
MECHANIC program in this book, and give yourself a quick ‘stress 
check’ with MEDICI. 


The major Expert System in the book is called FUZZY RITA, which 
uses fuzzy logic within the framework of an Expert System shell. 
You can adapt it to become a genuinely-useful expert on just about 
any subject you choose. 


You'll also have the chance to explore the languages which are 
beginning to dominate the Artificial Intelligence and Expert 
Systems’ worlds. This book contains BASIC emulators of the two 
‘hottest’ Al languages — PROLOG and LISP. There’s now no need 
to buy these languages in order to learn them. Just type in the 
programs, and you'll have small-scale versions of PROLOG and 
LISP running so you can experiment with their power. 


Machine-specific listings are provided for: SPECTRUM+ and 
SPECTRUM, AMSTRAD, BBC MICRO, COMMODORE 64, all 
MSX machines, and any computer furnished with Microsoft BASIC. 
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